Напишите на языке Паскаля!!!С клавиатуры вводится числа пока не введётся 0;посчитать кол-во чисел оканчивающихся на 7.

На языке Блеза Паскаля, французского философа и математика:var n:integer; count:integer;begin  repeat    writeln('Tapez les numéros: ');    readln(n);    if n mod 10 = 7 then count:=count+1;  until n=0;  writeln(count, ' se terminant "7"');end.