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

Помоги мне плиз

Код программы на Pascal:var  number: integer;begin  write('Введите число: ');  read(number);  if (number > 0) then    writeln(number * number)  else if (number < 0) then    writeln(-number);end.