Program pole i obwód prostokąta002

—- ZAD3 .PAS:2    .............

================s™ ZAD2.PAS:4 =======

bok_a,bokjb,pole,obwod:real;

M

br;    .ją

writoln(^,Pi^>ogi^taR obliczający pole i obwod prostota

wi*ite<'Podaj bok a: ');

readln(bok_a>S

if <bok_a>0> then

urite(^,Podaj bok b: '>;

readln<bok_b>*

if (bokjb>0) then

bogiń

pole:=bok_a*bok_b; obwod:®2*<bok_a+bok_b>S writelnC'Pole: ',pole:0:2)» writeln<'Obwod: ',obwod:0:2>; end

else writeln <'wprowadziłoś zle wartości'); readkey;