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

program а4;

var х, kl, k2: integer;

begin

kl : = О;

k2 : = О;

repeat

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

readln (х) ;

if х<О then kl : = kl + 1;

if х<О then k2 : = k2 + 1;

until х=О;

writeln ('kl=', kl, ' ', 'k2=', k2) ;

end.

Записать эту программу на языке Паскаль,

используя оператор while

Program a4;

var

x, kl, k2: integer;

begin

kl : = 0;

k2 : = 0;

x:=1;

while x0 do

begin

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

readln (x) ;

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

if x<0 then k2 : = k2 + 1

end;

writeln ('kl=', kl, ' ', 'k2=', k2)

end.

Программа была написана с синтаксическими ошибками: a4 и х были записаны русскими буквами, а вместо нулей 0 использовалась буква О.

Кроме того, конструкции if x<0 then kl : = kl + 1; и if x<0 then k2 : = k2 + 1 делают одно и то же, только с разными переменными. Скорее всего, одно из условий должно содержать знак не меньше, а больше, либо больше или равно.