Составьте программу, удваивающую значение целой переменной "а", если а>5.

Question

Составьте программу, удваивающую значение целой переменной "а", если а>5.

Answer 1

Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.