Найти площадь и периметр прямоугольника

program Dekio;
var
a,b,c :integer;
begin
writeln('Ââåäèòå 3 ñòîðîíû');
readln(a,b,c);
if (a=b) or (a=c) or (b=c) then
writeln('Òðåóãîëüíèê ðàâíîáåäðåííûé')
else
writeln('Òðåóãîëüíèê íå ðàâíîáåäðåííûé');
end.

program EvGeN;
var
 a, b, S: integer;
begin
 writeln('Введите стороны прямоугольника:');
 readln(a, b);
 S:=a*b;
 writeln('Площадь - ',S);
end.

program EvGeN;
var
 a, b, P: integer;
begin
 writeln('Введите стороны прямоугольника:');
 readln(a, b);
 P:=2*(a+b);
 writeln('Периметр - ',P);
end.

program EvGeN;
var
 a, b: integer;
 d: real;
begin
 writeln('Введите стороны прямоугольника:');
 readln(a, b);
 d:=sqrt(sqr(a)+sqr(b));
 writeln('Диагональ - ',d);
end.

program mas;
uses crt;
var a:array[1..20]of integer;i,l:integer;c:real;
begin
c:=0;l:=0;
for i:=1 to 20 do
begin
clrscr;
readln(a[i]);
if a[i]<0 then begin
c:=c+a[i];l:=l+1;end;
end;
for i:=1 to 20 do
begin
writeln(a[i]);
if a[i]<0 then writeln('  ',i,' отрицательный элемент ');
end;
c:=c/l;
writeln('средняя значение отрицательных элементов равна ',c);
end.

program a_3;
uses crt;
var a,b:integer;x:real;
begin
clrscr;
writeln('введите переменые');
readln(a,b);
if (a=0)and(b=0) then
begin
writeln('x любое');
end;
if (a=0)and(b<>0) then
begin
writeln('нет решений');
end
else
begin
x:=-(b/a);
writeln(x);
end;
end.