какую информацию может нести лес?

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.

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

2. Для ввода какой информации предназначены микрофон, сканер, цифровая камера?
3. Для чего нужна клавиатура? Что важно знать про клавиатуру?
4. Как называются основные группы клавиш на клавиатуре компьютера?
5. Расскажите об основной позиции пальцев на клавиатуре.

отображения значений?

2.Как называется сторона,которая передает информацию?(8 букв)
3.простая и удобная и удобная форма представления однотипной информации.(7 букв)
-
4.Представление информации с помощью некоторого кода.(11 букв_)
5.Прикладные программы (...)-это программы ,с помощью которых выполняются конкретные задания:ввод текста,рисование и т.д. какое слово пропущено в скобках?(10 букв)