Проверяет ли программа условия цикла перед выполнением операторов тела цикла​

да программа проверяет перед выполнением операторов тела цикла

uses crt; var

  i,s1,s2: integer; begin  for i: =1 to 100 do  begin    if i mod 2=0 then s1: =s1+i    else s2: =s2+i;   end;   writeln('сумма четных чисел: ',s1);   write('сумма нечетных чисел:   ',s2); end.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.