Для тех, кто знает Паскаль. Решите простенькую задачу

Question

Напишите, пжлст программу 
Дано натуральное число. Сформировать число, представляющее собой его квадрат. 
Заранее спасибо.

Ситдекова Валерия · Accepted Answer

var n:real; 
begin 
readln(n); 
writeln(n*n); 
end.

Дмитрий Казаковцев · Answer

program SqrOfNum;

var 
 
 a: word;

begin 
 
 readln(a); 
 
 a := a * a; 
 
 writeln(a) 
 
end.

Ганга Уразбаева · Answer

Program kvadrat; 
Var i:integer; 
Begin 
 Write('Введите число: '); 
 Readln(i); 
 Writeln('Квадрат числа ',i,' составляет ',sqr(i)); 
End.