var x: int;
var opseg,pov: real;
begin
repeat
{writeln("unesi radius kruga");
readln(x);
if (0<x) writeln("radius ne moze biti negativan!!");
} until (0<x);
pov = x*x*pi;
opseg = 2*x*pi;
writeln("povrsina kruga je ", pov);
writeln("opseg kruga je ",opseg);
readln;
end.
odnedavno "programiram" samo u C-u, pa sam zaboravio neke sintakse iz pascala. mozes probat ovo copi pejstat pa ispravit sta ne valja
