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

var a,b:real;
begin
readln(a,b);
if b=0 then writeln('Деление на 0')
else writeln('y = ',a/b);
end.

Пример:
5 2
y = 2.500000000000000e+00

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