Написать программку вычисления значения функции y=1/x. Мы знаем, что на ноль

Введем последующие обозначения: пусть x заданное число, значение которого будем вводить с клавиатуры во время исполнения программы; y число, значение которого надобно найти в зависимости от введенного числа x. Тогда программка на языке программирования Pascal ABC может смотреться так:

program zadacha;

uses crt;

var x: integer; y: real; Описание величин x  и y

begin

writeln (vvedite chislo x) ;

readln(x); Ввод значения числа х

if x=0 then y:=0 else y:=1/x;

writeln (y=,y); Вывод результата y на экран

end.