Question

Решить задачу на PASCAL Дано число x. Если x больше 5, то надо умножить x на 2. Результат вывести на экран.

Answer 1

Program z5;

Var x:integer;

Begin

write('Введите число - '); readln(x);

if (x > 5) then write(x*2)  

else write(x);

End.

Answer 2

write('Введите число - '); readln(x);

if (x > 5) then write(x*2)  

else write(x);