Определить тип алгоритма для указанных команд: сказать ,повторить 20 раз, всегда​

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

на египетскую - иероглифы.

64000*16=1024000 б=128000 б=125 кб

program primitive;

var a,b: integer;

begin 

read(a,b);

writeln(a mod b);

end.чему в школе то