Запишите на языке Паскаль фрагмент программы, соответствующий блок-схеме.

Фрагмент организует ввод данных до тех пор, пока не будет введен ноль и подсчитывает количество введенных чисел, значение которых превышает единицу.var  k,x:integer;begin  k:=0;  repeat    Read(x);    if x>1 then Inc(k)  until x=0;  Writeln(k)end.Тестовое решение:1 5 -10 3 -8 6 1 2 -7 4 05