program kelimas laipsniu; var a, b : integer; begin WriteLn('Iveskite skaičiu 1:'); read(a); WriteLn ('Iveskite skaičiu 2:'); readLn(a); WriteLn ('Iveskite skaičiu 3:'); readLn(a); WriteLn ('Rezultatas:',a*a*a); Readln; end.