Даны действительные числа a и b. Вычислить 2a+b.

var

a,b:integer;

begin    

    readln(a);

readln(b);

write(2*a+b);

end.

Даны действительные числа c и d. Вычислить 2c(d+5)

var

c,d:integer;

begin    

readln(c);

readln(d);

      write(2*c*(d+5));

end.

Даны натуральные числа e, h. Вычислить 0,5e+h2.

var e,h,i:integer;

c:real;

Begin

readln(e,h);

c:=e;

for i:=1 to h do

c:=((1/2)*e+h*2);

write(c);

end.

Или вот:

var

k:real;

e,i,h:integer;

begin    

readln(e);

readln(h);

for i:=1 to h do

k:=((1/2)*e+h*2);

      write(k);

end.