^^ номер 1. запросить число и вывести на экран квадрат этого числа, если оно окажется положительным или модуль этого числа, если оно отрицательно.

Код программы на Pascal:

var
  number: integer;
begin
  write('Введите число: ');
  read(number);
  if (number > 0) then
    writeln(number * number)
  else if (number < 0) then
    writeln(-number);
end.