Помогите решить задачку плизз, с меня ++++

если a>b, то найти y=a/b, иначе найти y=a*b

ОБКУРЕННЫЙ-КОТЭ , полный пример дай

ОБКУРЕННЫЙ-КОТЭ ,
if ( a > b ) then y:=a/b else
y:=a*b;

Сделать программу на Pascal, если a>b, то найти y=a/b, иначе найти y=a*b

Смотри
begin
var
y,a,b:real;
writeln ('Введите а');
readln (a);
Writeln ('Введите b');
readln (b);
if ( a > b ) then y:=a/b else
y:=a*b;
end.
ошибка
выдае

Могу на С++ или на шарпе написать

[q]ОБКУРЕННЫЙ-КОТЭ (13.02.2017 в 17:11)
blackheard (13.02.2017 в 16:36)
ОБКУРЕННЫЙ-КОТЭ ,
if ( a > b ) then y:=a/b else
y:=a*b;



Смотри
Program e1;
var
y,a,b:real;
begin
writeln ('Введите а');
readln (a);
Writeln ('Введите b');
readln (b);
if ( a > b ) then
begin
y:=a/b;
end;
else
begin
y:=a*b;
end;
writeln('y=',y);
end.

Гоу, буду благодарен

ОБКУРЕННЫЙ-КОТЭ , жай полностью код

Вот смысл задачки
Сделать программу на Pascal, если a>b, то найти y=a/b, иначе найти y=a*b