Написать программу которая запрашивает целое число и выводит его на экране. Если введённое число равно 13 заменить его на число 55

program zz1;

var a:integer; / / задаем переменную целого типа

begin

write (' введите число '); / / вводим с клавиатуры число

read (a);

if a = 13 / / проверяем условие, если введенное число равно 13, то

then writeln (' введенное число = ', 55) / / выводим на экран ответ равный 55

else writeln (' введенное число = ', a); / / иначе, выводим ответ равный самому введенному числу

end.