Напишите на языке Паскаля!!!С клавиатуры вводится числа пока не введётся 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.