Даю 90 баллов, помогите пожалуйста!Написать в Паскаль. Заблаговременно спасибо.

Первая программка

var x,y:real;

begin

 readln(x);

 y:=sqrt(x);

 writeln(y);

end.

2-ая программка

const n=4;

var i,c:integer;

   s,p:real;

   a:array[1..n] of real;

begin

 c:=1;

 writeln('Введите стороны 4-ех угольника: ');

 for i:=1 to n do readln(a[i]);

 for i:=1 to n-1 do begin

   if(a[i] = a[i+1]) then

     c+=1;

 end;

 if(c = 4) then begin

   s:=sqr(a[1]);

   p:=4*a[1];

   writeln('Площадь квадрата: ',s,'. Периметр квадрата: ',p);

 end

 else begin

   s:=a[1]*a[2];

   p:=2*(a[1]+a[2]);

   writeln('Площадь прямоугольника: ',s,'. Периметр прямоугольника: ',p);

 end;

end.