Составить Программа "Кумир"

Program Kymir;var a,b,n:integer;beginWrite('Введите границы: a='); read(a); write('b='); read(b);Write('Введите множитель: '); read(n);while a<>b do beginWriteln(a,'*',n,'=',a*n);a:=a+1;end;end.