<span>var a,b,c:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
write('Среднее арифметическое=',(a+4*a+16*a) / :0:2);
end<span>.</span></span>
print('Длина ребра куба =')
a=int(input())
V=a*3
S=6*(a**2)
print('V=',V,' см**3',sep='')
print('S=',S,' cм**2',sep='')
Полное имя файла включает в себя путь и имя(название) файла.
<em>Если посмотреть, то практически русские слова заменили английскими.</em>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var a,b:real;
Read(a,b);
if a<b
then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
<em>На самом деле можно написать и несколько покороче</em>
begin
var (a,b):=ReadReal2;
if a<b then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
23 div 5=4
16 div 4=4
5 div 8=0
37 div 10=3
23 mod 5=3
16 mod 4=0
5 mod 8=5
37 mod 10=7