Написать программу на языке программирования паскаль реализующую конструкцию if then else): 1) вводится число 2) если число меньше 3, то это число необходимо возвести в квадрат. 3) если число больше либо равно 3 это число необходимо прибавить само к себе. 4) вывести результат на экран.
var a:real;
BEGIN
readln(a);
if (a<3) then writeln(sqr(a)) else
writeln(2*a);
end.