Êâàäðàòíûé êîðåíü à:
var
a,b:real;
begin
write('a=');
readln(a);
b:=sqr(a);
writeln('sqr(a)=',b:5:3);
readln;
end.

Öåëîå ð:
var
p:real;
b:integer;
begin
write('p=');
readln(p);
b:=trunc(p);
writeln(b);

readln;
end.