Информатика (паскаль) / лаб.1 / 23

program pr1;

uses crt;

var a,b,c,k: real;

begin

clrscr;

writeln('a=');

readln(a);

writeln('b=');

readln(b);

c:=(sqr(a)+sqr(b))/2;

writeln('c=',c:5:2);

k:=(abs(a)+abs(b))/2;

writeln('k',k:5:2);

readln;

end.