Интересные факты о ...
Познавательное видео о играх.
Моя семья
Интересные истории
Фотографии нашего класса
Где был наш класс этим годом
Наша школа
Познавательные игры для учебы
Как быстро выучить стих
Как быстро сделать уроки
Секреты хорошей учебы
Я думаю что нет потому что не все они работают и имеют дело в текстами по этому ответ нет надеюсь что помогла
Program Katarina55;
uses crt;
var
x,poz,neg:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит количество положительных и отрицательных введённых чисел. ');
writeln('Ввод продолжается, пока не будет введен 0.');
writeln();
neg:=0;
poz:=0;
repeat
writeln('Введите число '); readln (x);
if x<0 then neg:=neg+1;
if x>0 then poz:=poz+1;
until x=0;
writeln();
writeln('Программа закончила работу.');
writeln('Количество введённых чисел:');
writeln(' положительных: ',poz);
writeln(' отрицательных: ',neg);
end.