Составить программу вычисления площади и периметра квадрата на языке паскаль

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadReal;
write('S=',a*a,'; P=',4*a);
end.

Program SP;
var a, s, p: real;
begin
readln(a);
s:=sqr(a);
p:=4.0*a;
wrineln(s, ' ', p)
end.