Дана сторона квадрата a. Найти его площадь S = a2 — Pascal(Паскаль)

program kvadratploshad;
var a, s: real;
begin
    write('Введите a: ');
    readln(a); 
    s := sqr(a);
    write('Площадь квадрата -- ', s);
end.