Программист вводит с клавиатуры число a. Если оно положительное, то помещает в эту ячейку его квадрат, выводит текст «Оно положительное считали квадрат!» и запрашивает еще одно число, выводит его куб на экран. На последней строке выводит значение ячейки а. Код на PascalABC

var

 a,b:integer;

begin

 write('Число А - '); readln(a);

 if a mod 2 = 0 then begin

   writeln('Оно положительное считали квадрат!');

   write('Введите ещё одно число - '); readln(b);

   writeln('Куб числа ',b,' = ',sqr(b)*b);

   writeln('Квадрат числа ',a,' = ',sqr(a));

 end;

end.