Як виконується фрагмент алгоритму наведений на малюнку 3.45?

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

сохранить информацию о наблюдаемом объекте 

передать информацию о нём другим людям

испытать на модели работу объекта ,если испытание объекта-оригинала  опасно или дорого

max: =a[1];

for i: =2 to 10 do

begin 

if a[i]> max then

max: =a[i];  

c: =i;  

  end;

min: =a[1];

for i: =2 to 10 do

begin

if a[i]< min then

min: = a[i];

d: =i;

end;

a[c]: =x;

a[c]: =a[d];

a[d]: =x;  

это кусочек программы в паскале для нахождения максимального элемента на скоко я помню