<span>program mas;
uses crt;
var a, b, c, k:integer;
begin
writeln('Введите три числа');
readln(a);
</span>readln(b);<span>
</span>readln(c);<span> </span><span>
for i:=1 to 3 do begin
if i>0 then k:=k+1;
end;
writeln('Положительных чисел',k);
readln;
end.
Вроде так.
Точно не знаю, давно на этом языке не кодил</span>
1. нота ДО
2. игра ЛОТО
Ответ: ДОЛОТО
инструмент для долбления древесины
<span>AB=10*161+11*160=160+11=171</span>
А) Программное обеспечение
б) О<span>перационная система
в) Приложения</span>