Напишите программу на Паскале, чтобы решать третье задание. 20 баллов. Надо использовать while

Программа не рабочая, если я не ошибаюсь. Тем более, все, что я увидел не рабочее сразу - написано "while nk". Может быть не понимаю чего нибудь. Цикл не работает, вроде бы. Либо же, я снова не понял как он должен работать.

Ну по блок схеме я написал код ,всё как там

Program first;Var a,k,x,y,n,i:integer;beginreadln(a,x,k);n:=0;while n<k dobeginy:=a*x;writeln(y,'   ',x);n:=n+1;end;end.Пробуй ,вроде бы должно работать