pascal
: 15 paź 2011, 17:29
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 ;/
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 ;/