Question

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

Answer 1

program 123;
var x:integer;
begin
readln(x);
if x>3 then x:=x*5;
writeln(x);
end.