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

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

programm udvoenie;

var a, s: integer;

begin

writeln ('Введите целое значение переменной а');

readln (a);

if a > 5

then

s: = a * 2;

writeln ('Удвоенное число будет равно', s);

else

writeln ('Значение числа меньше 5');

end.