В компьютер вводятся два произвольных положительных числа a1 и a2 - длины сторон двух кубиков. Требуется найти объём кубика, большего по размеру. Составьте блок-схему и протокол.
Исходные данные a1=5 , a2=20
Ответ
Автор - ZaharovVasya
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.