Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

sqr() pascal.
Квадрат числа в Паскале:

program sqr_Task;
  // sqr(n) pascal
var
  w_Num, L: word;
  r_Num: real;
begin
  //вводим число для оператора read
  WriteLn('Введите число ');
  Read(w_Num);
  r_Num := sqr(w_Num);
  //Вывод на экран результат функции sqr(n)
  Writeln('Результат функции sqr(n): ', r_Num: 10: 2,
    ', квадрат числа (возведение в степень 2): ', w_Num);

  //завершение работы программы   sqr(n)
  repeat
    WriteLn('Нажмите 1 (единица) потом <Enter>, чтобы выйти.');
    ReadLn(L);
  until L = 1;
end.

Результат sqr(n) pascal:

sqr() pascal.