Задание на картинке. Нужно

repeat

begin

res:=res*n;

i:=i+1

end;

until i <> s;