Программу на языке паскаль. найти площадь квадрата, если с клавиатуры вводится его сторона

Что-то вроде этого

Var
a,s:real;
begin
write('Введите сторону квадрата');
readln(a);
s:=a*a;
writeln('Площадь квадрата равна: ' ,s:5);
end.