Выполни задание

Дана программа на языке Паскаль:

program \(a4\) ;

var \(x, k1, k2: integer\) ;

begin

\(k1:=0\) ;

\(k2:=0\) ;

repeat

\(writeln\) ('Введи целое число');

\(readln (x)\) ;

if \(x \lt 0\) then \(k1:=k1+1\) ;

if \(x \gt 0\) then \(k2:=k2+1\) ;

until \(x=0\) ;

writeln ( \('k1=', k1, '', 'k2=', k2\) )

end.

Составь блок-схему, соответствующую программе.

Чем являются результаты работы программы?