Помогите пожалуйста, я не понимаю как сделать :( Дано вещественное число a. Не пользуясь...

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ReadReal('Введите число:');
var y:=a*a; // a^2
y:=y*y; // a^4
y:=y*y; // a^8
Write('a^8=',y,', a^9=');
y:=y*a; // a^9
Writeln(y)
end.

Тестовое решение
Введите число: 2.73
a^8=3085.32683368301, a^9=8422.94225595462

Версия для старых паскалей:

var
a,y:real;
begin
Write('Введите число: '); Read(a);
y:=a*a; // a^2
y:=y*y; // a^4
y:=y*y; // a^8
Write('a^8=',y,', a^9=');
y:=y*a; // a^9
Writeln(y)
end.