Question

Помогите решить задания, пожалуйста
№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
Это написано в блок схеме, если там не видно

Answer 1

№2
var u, i: integer;
begin
u := 26;
for i := 1 to 5 do:
u := u - 1;
writeln(u);
end.