на паскале составить программу которая запрашивает у пользователя целое число и выводит квадрат

uses crt;var n:integer;beginwriteln('Введите число: ');readln(n);writeln('Квадрат числа n=',n*n);end.