zadanie w pascalu

[gulek]

Witam nie działa mi program ale nie mam pojecia czemu polecenie takie było
Napisz procedurę obliczającą pole koła na podstawie promienia – r.
a zadanie wygląda tak

Kod: Zaznacz wszystko

program ad;
uses crt;
var r:real;
procedure pole(p:real; r:real);
          begin
          p:=3.14*r*r;
          end;
          begin
          writeln('podaj promień');
          readln(r);
          pole(r);
          readln;
          end.


[ Dodano: Dzisiaj o 22:30 ]
program ciagle krzyczy przy pole(r); (error 87 "'," expected)

[Lukesh]

Bez procedury, ale dziala

Kod: Zaznacz wszystko

program Pole_kola;
uses crt;
var r : real;
begin
clrscr;
write('Podaj promien kola: ');
readln(r);
write('Pole = ', Pi*r*r:8:3);
readln;
end.

[gulek]

Bez procedury, ale dziala

właśnie problem w tym że ma byc koniecznie procedura

[ Dodano: Dzisiaj o 19:36 ]
dobra już sobie poradziłem
EOT