var x, y:integer;
begin
writeln (' Введите х ');
readln (x);
if x>1 then y:= x-4
else y:= 5*x;
writeln ('y=',y);
end.
Объяснение: должно быть так
var x, y:integer;
begin
writeln (' Введите х ');
readln (x);
if x>1 then y:= x-4
else y:= 5*x;
writeln ('y=',y);
end.
Объяснение: должно быть так