решите пожалуйста во вложении! 9 класс!) (с подробным решением)

SysUtils;
var
a,b,c,d:real;
begin
read(a,b,c,d);
if d=0 then begin
while (sqr(a)*b<288) do begin
b:=b+1;
end;
d:=a*sqr(b);
end
else if c=0 then begin
b:=sqrt(d)*(-1);
while (a*sqr(b)<>81) do begin
a:=a+1;
end;
c:=sqr(a)*b;
end;
writeln(a:1:0,' ',b:1:0,' ',c:1:0,' ',d:1:0);
end.

но она постоянно получает тайм аут, помогите увеличить скорость ее работы любым путем

1 0 1 1 1 0 0 1 1 0 1 1 1 0 0 1

то разрядность процессора равна:

- •