ОБКУРЕННЫЙ-КОТЭ , надо начинать с program name; а не с begin
________
посл. ред. 13.02.2017 в 17:23; всего 1 раз(а); by blackheard

ОБКУРЕННЫЙ-КОТЭ , надо исходные даные

Пишу так
program name;
if ( a > b ) then y:=a/b else
y:=a*b;

и ошибка
Program1.pas(2) : Встречено 'if', а ожидалось begin

или так то ошибка
begin;
if ( a > b )then y:=a/b;
y:=a*b;
end.


Program1.pas(2) : Неизвестное имя 'a'

ОБКУРЕННЫЙ-КОТЭ , после бегин точка с запятой не ставится. И после програм пробел и имя без точки.

а как код то будет выглядить?

ОБКУРЕННЫЙ-КОТЭ ,
Program e1;
var y,a,b:real;
begin
writeln ('Введите а');
readln (a);
Writeln ('Введите b');
readln (b);
if ( a > b ) then
y:=a/b;
else
y:=a*b;
write('y=',y);
end.
Примерно так. 10лет уже не писал в нём.

Странная ошибка Program1.pas(10) : Встречено 'else', а ожидался оператор
http://prntscr.com/e8779b

blackheard , я поражаюсь программе универов, уже сколько лет прошло они все паскаль изучают )) Эти задачки 15 лет назад еще были )) От этих знаний ну никакого прока нет ))

ОБКУРЕННЫЙ-КОТЭ , ещё так пробуй
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;
write('y=',y);
end.