Jakbyś podał dobry adres @ to byś już kilka dni temu miał zadanko.

Napisz program do obliczania pola prostokata o zadanych długościach boków. Wykorzystaj funkcje.


program pole_kwadratu;
uses crt;
var
a,b,wynik: integer;

function prostokat(a,b: integer):byte;
begin
clrscr;
prostokat:=(2*a)+(2*b);
end;

begin
writeln('Program oblicza pole prostokĄta');
writeln;
delay(200);
write('Podaj bok a: ');
delay(100);
read(a);
delay(200);
write('Podaj bok b: ');
delay(100);
readln(b);
wynik:=prostokat(a,b);
delay(400);
writeln('Pole prostokĄta o bokach: ',a,',',b,' wynosi:  ',wynik);
readln;
end.


Może być?
Jak coś to pisz.