25 . нужна . машина поста. на ленте машины записано число. скопировать его два раза.

синий,желтый,красный,зеленый,оранж.

var x,y: real;

begin

  read(x);

  if x< =10 then y: = 210

  else y: = x*x*x;

  writeln(y);

end.

var a : integer; begin readln(a); if (a div 10 > 0)and(a div 100> 0)and(a div 100< 10) then writeln('число трехзначное') else writeln('число не трехзначное'); end.

сумма площадей = s1+s2

s1=(a+b)/2*h=(2+3)/2*2/5=6.25

s2=(a+b)/2*h=(4.1+5)/2*3.3=15.015

сумма = s1+s2=6.25+15.015=21.265