весы калькулятор и т.д что может помочь в сложных вычислениях
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
Пристрої введення це - клавіатура , мишка та вебкамера
1, если цифровая.
()()()()()()()()()()()()()(
Repeat
<тело цикла>
until <условие>
это в паскале