1 <span>Ввести с клавиатуру 10 произвольных чисел. Подсчитать и напечатать количество положительных, отрицательных и нулевых чисел.
4) Среднее арифметическое.
2)</span>
<span>Компьютер является универсальным автоматическим устройством для работы с Программами, Текстом, Приложениями,Другими устройствами,Чертежами и другими вещами...
</span>
Var a,b,c, d: integer;
begin readln(a,b,c); d := a*a + b*b + c*c; writeln(d)end.
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('a,b->');
if a.IsEven then Writeln('a+b=',a+b) else
Writeln('a*b=',a*b);
end.
Program n1;
var a,b: real;
begin
readln(a,b);
writeln(a+b);
write(a-b);
end.