Question

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

Answer 1

Program DZ;
var x : integer;
Begin
writeln("Ввели число");
if x = 13 then
begin
x := 55;
readln(x);
end;
else
writeln(x);
End;
end.