Question

составить программу для решения задач. С клавиатуры вводится число 5 иначе прибавить 5

Answer 1

Program n1;
var a: real;
begin
readln(a);
if a<>5 then a:=a+5;
writeln(a);
end.