введите с клавиатуры 5 произвольных чисел и найдите корень квадратный из суммы их кубов...

var a,i,sum:integer;beginfor i:=1 to 5 dobeginreadln (a);sum:=sum+(i*i*i);end;writeln (sqrt(sum));end.

program zadacha;

uses crt;

var a,b,c: integer;

begin

writeln('Введите 3 числа');

readln(a,b,c);

writeln(sqrt(a*a*a+b*b*b+c*c*c));

readln;

end.