Даны скрипты . К какому типу алгоритма относится каждый скрипт

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

остаток от деления на 3                                                     

на паскале

vara,b: array [0..15] of real;

i: integer; begin

for i: =0 to 15 doa[i]: =i*2;

for i: =0 to 15 do beginb[i]: =1.8*a[i]+32; writeln(a[i],' градуса(ов)','=',b[i],' по фаренгейту'); end;

end.

вот еще через while 

vara,b: array [0..15] of real;

i: integer; begin

for i: =0 to 15 doa[i]: =i*2;

i: =0; while i< =15 do beginb[i]: =1.8*a[i]+32; i: =i+1; end; for i: =0 to 15 dowriteln(a[i],' градуса(ов)','=',b[i],'по фаренгейту'); end.