Найти периметр четырехугольника , если длины его сторон a, b, c, g, - вводятся с клавиатуры. напишите программу на паскале.

Var A,P:real;
Begin
P:=0;
Write('a = ');Read(A);
P:=P+A;
Write('b = ');Read(A);
P:=P+A;
Write('c = ');Read(A);
P:=P+A;
Write('d = ');Read(A);
P:=P+A;
WriteLn('P = ',P);
End.

//PascalABC.Net 3.2
begin
write(readinteger('a =')+readinteger('b =')+readinteger('c =')+readinteger('d ='))
end.

1)var a:array [1..10] of integer;      i,sum:integer;begin  randomize;  sum:=0;  for i:=1 to 10 do    begin      a[i]:=random(100)-50;      write (a[i],' ');      if a[i] < 0 then sum:=sum+a[i];      end;  writeln;  writeln ('Summa: ',sum);  readln;end.
2)var a:array [1..10] of integer;      i,max,index:integer;begin  for i:=1 to 10 do    begin       write ('A[',i,'] = ');       readln (a[i]);    end;  max:=a[1];  index:=1;  for i:=2 to 10 do    if a[i] > max then      begin        max:=a[i];        index:=i;      end;  writeln ('Max: ',max,'.Index: ',index);  readln;end.
3)var a:array [1..10] of integer;      max,min,i,temp:integer;begin  randomize;  for i:=1 to 10 do    begin       a[i]:=random(50);       write (a[i],' ');    end;  writeln;  max:=1;  min:=1;  for i:=2 to 10 do    if a[i] > a[max] then max:=i else      if a[i] < min then min:=i;  writeln ('Max: ',a[max]);  writeln ('Min: ',a[min]);  temp:=a[min];  a[min]:=a[max];  a[max]:=temp;  for i:=1 to 10 do write (a[i],' ');end.Не знаю- правильно ли?

Const n=10;
var 
  a,b:array [1..n] of integer;
  i,min1,min2,k:integer;
begin
  randomize;
  For i:=1 to n do begin
    a[i]:=random(10);    
    b[i]:=random(10);
  end;
  writeln (a);
  writeln (b);
  writeln;
  min1:=1000;
  min2:=1000;
  For i:=1 to n do begin
    if a[i]<min1 then min1:=a[i];
    if b[i]<min2 then begin min2:=b[i]; k:=i end;
  end;
  if k<n 
    then begin 
      b[k+1]:=min1; 
      writeln (a);
      writeln (b);
    end
    else writeln ('Минимальным является последний элемент');  
end.

Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]

Минимальным является последний элемент

2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]

[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]


PS: Менять N можно в описании константы