Напишите, пожалуйста, программу на языке паскаль для вычисления площади и периметра квадрата

x-длина
у-ширина

program 1;
uses crt;
var a,b :integer;
begin
s:=x*y;
p:=2*(x+y);
readln;
end.

как то вроде
забыл уже

к первому ответу: у квадрата и ширина и длина одинаковы ;) плюс не описаны переменные вообще
var n,s,p:integer;
begin
read(n);
s:=n*n;
p:=4*n;
writeln(s,' ',p);
end.

Немного поздновато, но вдруг кому-то пригодится))

Program name;
Uses crt;
Var a, b, S, P :integer;
Begin
Clrscr;
Writeln ('Даны стороны прямоугольника a и b.');
Writeln ('(1) Найти его площадь S=a*b.');
Writeln ('(2) Найти его периметр P=2*(a+b).');
Write ('Введите значение стороны а: ');
a := 0;
Readln (a);
Write ('Введите значение стороны b: ');
b := 0;
Readln (b);
S := a*b;
P := 2*(a+b);
Writeln ('(1) Площадь прямоугольника S=a*b =', S);
Writeln ('(2) Периметр прямоугольника P=2*(a+b) =', P);
Readln (S, P);
End.

Program SP;
var
a,s,p : real;
begin
writeln('Условие: Дано целое число a. Найти периметр и площадь квадрата со стороной a.');
writeln; //пропуск
writeln('Введите сторону квадрата, a=:');
readln(a);
s :=a*a;
p :=4*a;
writeln('Площадь=', S);
writeln('Периметр=', P);
readln();
end.