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

program kvadrat;var a:integer;beginwrite('Введите число');readln(a);a:=a*a;write('Квадрат:',a);end.(Pascal ABC)

Program n1;var a: real;beginreadln(a);write(a*a);end.