<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите через пробел три числа:');
if a*b*c<>0 then Writeln((a+b+c)/3)
end.
<u>Пример</u>
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
Эта папка называется КОТАЛОГ
Если в паскале то:
X: array[1..14] of integer/string/real/ и т.д.
var D, K, L : integer;
begin
d:=K*L
end.