Помогите решить задания, пожалуйста
№1
x-? a=3,b=18
Var x,a,b:integer;
begin
Readln(x)
a:=0, b=1
while x>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
Это написано в блок схеме, если там не видно