Используя разные источники информации, опишите извержение вулкана или землетрясение: годи место, как оно происходило, каковы последствия для природы и людей.

Uses crt;
var x,y:real;
begin
     x:=1.9;
     while x<=3 do begin
     x:=x+0.1;
     y:=power(x,5)-x+1.8;
     writeln(x:4:1,' ',y:6:3);
     end;
end.