Заштрихуйте на диаграмме область, которая описывается выражением (смотреть на рисунок)

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

(a*h)+(b*h)+(a*h)+(b***h3)

или

2*(a*h)+2*(b***h3)

если на 1 кв метр 200 грамм  то 

(2*(a*h)+2*(b***h3))*200=        ответ будет  в граммах

расход обычно указывается на кв  метр : )   

аборигеном                                                                                                                                                                                                                             

var x,x1: integer;

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[3]+s[2]+s[1]);

  writeln(x-x1);

end.