Запишите формулы, соответствующие логическим схемам​

Var a,b,c,t: integer; begin   read(a,b,c);   writeln('a': 4,'b': 4,'c': 4);   writeln(a: 4,b: 4,c: 4);   t: =a;   writeln(a: 4,b: 4,c: 4);   a: =c;   writeln(a: 4,b: 4,c: 4);   c: =b;   writeln(a: 4,b: 4,c: 4);   b: =t;   writeln(a: 4,b: 4,c: 4); end.

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.

 

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

 

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

начало

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

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

  а2=а2*б2

  вывод а1,а2

конец