Составить алгоритм и написать решение задачи на Паскале: Дано целое число а. Найти периметр и площадь квадрата со стороной а

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