Program  prostokąt;
uses crt;
var: a,b,p: integer;
procedure Pole;
begin
writeln ('podaj 2 liczby');
readln (a,b);
P:=a*b;
End;
begin
pole;
writeln(p);
readln
end.


Program trójkąt
uses crt;
Var
a: array (1...4) of integer;
Procedure obwód;
begin
a (4);
a(1)+a(2)+a(3);
end;
begin
writeln ('podaj 3 liczby');
readln(a(1),a(2),a(3));
obwód;
writeln (a(4));
readln;
end.

Nie wiem czy to jest dobrze bo ja to dostałam i tylko przekazuje dalej...

Nooo ja to zaraz sprawdzę, i naniosę ewentualne zmiany, bo mi sie wydaje ze to nie jest dobrze.
1. jest źle, nie mogę odpalić, na początku znalazło mi jakieś błędy, potem wcale nie znajdowało błędu ale nie mogłem odpalic. -.-'

Ten drugi jest źle

Program trójkąt
uses crt;
Var
a: array [1...4] of integer;
Procedure obwód;
begin
a [4]:=a[1]+a[2]+a[3];
end;
begin
writeln ('podaj 3 liczby');
readln(a[1],a[2],a[3]);
obwód;
writeln (a[4]);
readln;
end.

teraz powinno być dobrze