Напишите программу, вычисляющую площадь и периметр прямоугольника, при вводимых значениях длин сторон.
( P=2(a+b); S=ab)

Var
  a: Array[1..30,1..30] of Integer;
 n,min, max, i,j,s: Integer;
BEGIN
writeln('n=');
readln(n);
Randomize;
Writeln('sluciayniy massiv:');
For i:=1 to n do
begin
  For j:=1 to n do  begin 
   a[i,j]:=Random(51)-25;
    Write(a[i,j]:5);
  end; 
 Writeln;
end; 
s:=0; 
min:= a[1,1]; 
max:= a[1,1]; 
for i:= 1 to n do
 for j:= 1 to n do 
if a[i,j]<min then
 min := a[i,j];
 for i:= 1 to n do 
for j:= 1 to n do
 if a[i,j]> max then
 max:= a [i,j];
 for i:=1 to n do
 for j:= 1 to n do
 if i=j then
s:= s+a[i,j]; 
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s); 
readln; 
end.



Var
  a: Array[1..100,1..100] of Integer; 
n,min, max, i,j,s:Integer;
BEGIN
writeln('n=');
readln(n);

Writeln('vvedite massiv:');
For i:=1 to n do
begin 
 For j:=1 to n do
begin 
read(a[i,j]); 
end; 
Writeln; 
 end; 
s:=0; 
min:= a[1,1]; 
max:= a[1,1]; 
for i:= 1 to n do 
for j:= 1 to n do 
if a[i,j]<min then min := a[i,j];   {поиск минимального элемента }
 for i:= 1 to n do
 for j:= 1 to n do 
if a[i,j]> max then max:= a [i,j]; {поиск максимального элемента}
for i:=1 to n do 
for j:= 1 to n do 
if i=j then s:= s+a[i,j]; { поиск элементов главной диагонали и нахождение их суммы}
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s); 
readln;
end.

Program primer;
Var
       f,h:text;
       I: integer;   
      S: string;   
 Begin
Assign(f,'F.txt');
Assign(h,'H.txt');
rewrite(f);

Writeln('текст в файл F: ');

readln(s);
writeln(f,s);   //Записать текст в файл F
close(f);
Rewrite(h);
Reset(f);
Readln(f,s);
write(h,'  ');
For i:=1 to length(s) do        
                                          begin
                                              write(h,s[i]);  //Переписать компоненты файла F в файл H 
                                              if (s[i]=' ') then            
                                         begin 
                                             write(h,'  ');   //вставляя в начало каждого слова по двум пробела
                                         end;
                                         end;        

close(f);
close(h);
end.
// Паскаль ABC