Паскаль

3. 3

Попробуй набрать и запустить на выполнение еще одну программу.

Program P;

   var a, b : integer;

begin

   write ('Введите число ');

   readln (a); b:=a*a;

   writeln ('Квадрат этого числа = ',b);

end.

Объясни преподавателю что делает данная программа и для чего она нужна.