Question

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

Answer 1

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

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