Дана программа на языке Паскаль:
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

Действительно, if x>0 then k2 : k2 + 1.Нажал не туда...

Я оставил Вам личное сообщение, почитатйте

program a4;var  x, kl, k2: integer;begin  kl := 0;  k2 := 0;  x:=1;  while x<>0 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 делают одно и то же, только с разными переменными. Скорее всего, одно из условий должно содержать знак не меньше, а больше, либо больше или равно.