Складання алгоритмів опрацювання величин у середовищі Lazarus

Чому дорівнює Х після виконання циклу(одна вірна відповідь)

x := 1; While x<5 do x := x*2;

В яких операторах допущені помилки?(декілька вірних відповідей)

Чому дорівнює S після виконання фрагмента програми(одна вірна відповідь)

var і:Integer; A,S:Real;

begin S := 0; A := 0;

   For і := 1 To 5 Do begin

       A := A+0.2;

       S := S+A end; 

Визначте, які оператори реалізують обчислення f=10!(виберіть кілька варіантів)

Визначте, який рядок буде сформований у результаті виконання фрагмента програми(виберіть одну відповідь)

var i, j: Integer; S: String;

   For i := 1 To 2 do begin

   S := S + IntToStr (i);

   For j := 1 To 3 do S:=S + 'A';

end;