Какие функции выполняет АСУ?

var m1,m2,v1,v2: real;

begin

  read(m1,m2,v1,v2);

  if m1/v1 > m2/v2 then writeln('pervoe')

  else writeln('vtoroje');

end.

var a,b: integer;

begin

  read(a,b);

  writeln('a delitel b - ', a mod b=0);

  writeln('b delitel a - ', b mod a=0);

end.

var x,y: integer;

begin

readln(x);

if x< 1 then y: =-2*x+11

else y: =x*x-2;

writeln(y);

end.

режим дня трудоголика

проснулся- позавтракал- на работу-домой-поужинал и спать

повторить nраз до самой смерти

954-459=495

100a+10b+c-100c-10b-a=99a-99c=99(a-c)

найдем все трехзначные что делятся на 99

198297396495594693792891990

и проверяем каждое