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 делают одно и то же, только с разными переменными. Скорее всего, одно из условий должно содержать знак не меньше, а больше, либо больше или равно.
Алг Число
нач
цел n
вывод "Введите число:", нс
ввод n
если abs(n) >= 100 и abs(n)<=999 то
вывод "Да."
иначе
вывод "Нет."
все
кон
1-устная информация 2-писменная 3-изобразительная 4-этнографическая(которая идёт через журналистов) и 5-графическая