pascal

[uczen]

program kolo;
uses CRT;
const pi:=3.14
var
p,r:integer;
begin
ClrScr;
wrietln ('Podaj r);
readln (r);
If r>0 then p:=pi*r*r;
else write ('Podaj r');
readkey;
end.

nie wiem co mam zmienić żeby działało ;/

[piotr]

Juz dawno pascala nie uzywalem, ale na pierwszy rzut oka brakuje ' po jednym z wrietln.

Jaki jest dokladnie komunikat kompilatora?