7965596298

= POLEKOLA.PAS:2

i*api pole_i_obwod; crt;

r,pole„obwod:real; i

Wl

writelnC'Program obliczający pole i obwod kc write<'Podaj promień: _* >»

readln<r>; if <r>0> then begin

pole:»Pi*sqr<r>;

obwod:=2*Pi*r;

writeln (' Po le: ',pole:0:2>;

writeln<'Obwod: •,obwod:0:2>;    I

end

olse writeln<'wprowadziłeś zle wartości' readkey;___