Запиши число и тему урока по информатике выполнение задания у страница 88 на второе задание Расположите в правильном порядке команда алгоритма посадить деревсрччно умоляю ​

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

б,в,г,е - лцд остальное к трубке

2048 бит : 8: 1024= 0.25 кбайт

var a: array[1..100] of integer;

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

end.