Даны 3 действительных числа, возвести в куб те из них значения ...

Ирина

Program chisla;

var a, b, c: real;

begin

writeln ('Введите 1  число');

readln (a); 

writeln ('Введите 2 число');

readln (b); 

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

readln (c);

if a