Напишите программу на Паскале, которая находит y=a/b, когда b равен 0 и b не равен 0

program abc;var y,a,b:real;beginreadln(a,b);y:=a/b;if b=0 then writeln('Ошибка данных')else writeln(y);end.

Немного подправил, чтоб глаза не резало)

program abc;var y,a,b:real;beginreadln(a,b);y:=a/b;if b=0 then writeln('Ошибка данных')else writeln(y);end.

var a,b:real;beginreadln(a,b);if b=0 then writeln('Деление на 0')else writeln('y = ',a/b);end.Пример:5 2y = 2.500000000000000e+00