написать программу в паскале для возведения в квадрат если число меньше 3, и деление данного числа на 2 если число больше 5

Вопрос школьника по предмету Информатика

написать программу в паскале для возведения в квадрат если число меньше 3, и деление данного числа на 2 если число больше 5

Ответ учителя по предмету Информатика

program zadacha;

var a,s:real;

begin

writeln(‘Введи число: ‘);

readln(a);

if a<3 then s:=a*a;

if a>5 then s:=a/2;

writeln(s:2:1);

end.