помиогите плиз срочно надо по турбо паскалю задача из лабы

Легко:
var A, B, C : Integer;
begin
Write('A = '); ReadLn(A);
Write('B = '); ReadLn(B);
Write('C = '); ReadLn(C);
WriteLn('Числа ', С, ' и ', D, ' являются соответственно квадратом и кубом числа', А, ' = ', (C=A*A) and (D=A*A*A));
end.