Помогите решить задания, пожалуйста1x-? a=3,b=18Var

Помогите решить задания, пожалуйста
1
x-? a=3,b=18
Var x,a,b:integer;
begin
Readln(x)
a:=0, b=1
while xgt;0 do begin
a:=a+1
b:=b*(x mod 100)
end;
Write(a); Write(b)
End.

2
По фрагменту написать программку, произвести вычисления
u:=26
i:=1 to 5
u=u-1
Это написано в блок схеме, если там не видно