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

Question

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

Answer 1

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

Answer 2

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

Comments

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

---

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