Question

Помогите решить срочно, надо вывести на экран квадрат введенного числа

Answer 1

var  a: integer;

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