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

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);