Программа для вычисления квадратного корня

[DZIMKA96]

Помогите пожалуйста найдите в чем ошибки.

uses crt;
var a,b,c,a2,b2,c2,a3,b3,p2,p3:integer;
begin clrscr;
write('1');readln(a);
write('2');readln(b);
write('3');readln(c);
a2:=a*a;b2:=b*b;c2:=c*c;
a3:=a*a*a;b3:=b*b*b;c3:=c*c*c;
p2:=a2*b2*c2;p3:=a3*b3*c3;
writeln(p2:=36);
writeln(p3:=216);
readkey;
end.

[puporev]

А в чем прикол-то в этой задаче?

[DZIMKA96]

Прикол в том что я незнаю как правильно сделать подскажите пожалуйста...

[puporev]

я незнаю как правильно сделать

Так тебя и спрашивают, что должна делать программа, задание какое?

[DZIMKA96]

Нужно составить программу квадратного корня определенных чисел! Я тут уже сделал немного правильно или нет посмотри пожалуйста!

uses crt;
var a,b,c,a2,b2,c2,c3,a3,b3,p2,p3:integer;
begin clrscr;
write('1');readln(a);
write('2');readln(b);
write('3');readln(c);
a2:=a*a;b2:=b*b;c2:=c*c;
a3:=a*a*a;b3:=b*b*b;c3:=c*c*c;
p2:=a2*b2*c2;p3:=a3*b3*c3;
writeln('36',p2);
writeln('216',p3);
readkey;
end.

[puporev]

Квадратный корень из неотрицательного числа

var a,b:real;
begin
b:=625;
a:=sqrt(b);
write(a:0:0);
end.

[DZIMKA96]

А вот у меня самый тупой вопрос! Я просто только начал изучать Paskal! Что должно произойти когда я после проверки запустил программу? У меня написалась на черном экране цифра 1! Это правильно?