Как вычислить площадь и периметр квадрата в паскале.

program p1;var  a: real;S: real;P: real;begin writeln('Введите сторону квадрата A: ');readln(a);S := a * a;P := a * 4;writeln('Площадь равна ',S);writeln('Периметр равен ',P);end.