Var
i:integer;
begin
for i:=1 to 10 do
writeln(i,'*',2,'=',i*2);
end.
Program psck;
vara,b: real;
begin read(a,b); b:=10*10*10*10*a-3*b/5; write('Полученный результат - ',b);end.
Var a:integer;
<span>begin </span>
<span>writeln('Введите сторону куба'); </span>
<span>readln(a); </span>
<span>writeln('Объем куба с ребром ',a,' равен — ',a*a*a); </span>
<span>writeln('Площадь поверхности куба равна — ', 6*a*a); </span>
<span>end. </span>
По сути необходимо выбрать две позиции для красных гирлянд (пара чисел без учёта порядка). Такой выбор осуществляется С²₅ = 10