Program pole i obwód koła002

POLEKOLA.PAS:2

n» pole_i_obwod; crt;

M»le,obwod:real;

writeln<*Program obliczający pole i obwod

write<'Podaj promień: '>;

readln<r>;

if <r>0> then

bogiń

pole: HPi««sąr<r>;

obwod: =2*Pi*r;

writeln<^#Pole: ' ,pole:0:2);

writeln<*Obwod: ',obwod:0:2>;

end

else writeln<*wprowadziłeś zle wartości¹)

readkeys