Здравствуйте решить заранее

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

сохранить информацию о наблюдаемом объекте 

передать информацию о нём другим людям

испытать на модели работу объекта ,если испытание объекта-оригинала  опасно или дорого

a1=8;

a2=a1*10=80;

a3=a2-a1=72;

b1=a2/4=20;

b2=(b1-a1)/6=2;

ответ: a1=8; a2=80; a3=72; b1=20; b2=2

за синтаксис не бить

дано а1,а2,б1,б2 - целые

начало

  ввод а1,а2,б1,б2

  a1=a1*б2+б1*а2

  а2=а2*б2

  вывод а1,а2

конец