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

program a4;

var x, k1, k2: integer;

begin

k1:=0

k2:=0

writeln (' Введите три числа');

readln (x);

if  x<0 then k1:=k1+1;

if  x<0 then k2:=k2+1;

intil x=0;

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

end

 

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

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