Срочно очень нужна помощь!Буду рад если кто-то поможет6 вариант нужен Если можно

Program yoyo;
uses crt;
var x,y,x1,b:real;
begin
x:=2.2;b:=2.718;
writeln('значения у при х=2.2,5.1,0.3 = ');
while(xlt;5.4)do begin y:=exp((2*x-15)*ln(b));x:=x+0.3;writeln(' ',y:2:7);end;
x1:=5.4;
writeln('значения у при х=5.4,7.3,0.3 = ');
while(x1lt;=7.3)do begin y:=абс(8*x1*x1*x1-20); x1:=x1+0.3;writeln(' ',y:2:2);end;
end.