Program z5;
Var x:integer;
Begin
write('Введите число - '); readln(x);
if (x > 5) then write(x*2)
else write(x);
End.
Program z5;
Var x:integer;
Begin
write('Введите число - '); readln(x);
if (x > 5) then write(x*2)
else write(x);
End.
write('Введите число - '); readln(x);
if (x > 5) then write(x*2)
else write(x);