Program arifm;
Uses Crt;
var a,b:integer;
d:real;
begin
clrscr;
a:=2;b:=10;
D:=a+b/2*a*b
writeln('d=',d:5:5);
readkey;
end.
Program arifm;
Uses Crt;
var a,b:integer;
d:real;
begin
clrscr;
a:=2;b:=10;
D:=a+b/2*a*b
writeln('d=',d:5:5);
readkey;
end.