Помогите решить задачи по программированию (9 класс)

1.Var x,y: real;Beginwriteln ('Введите число х');readln (x);y:=(x*x*x-2*x+1)/(x*x*x*x+5)+3*x*(x-10);writeln ('y = ',y);End.2.Var c,x,z: real;Beginwriteln ('Введите стоимость товара');readln (x);writeln ('Введите количество кг товара');readln (c);z:=c*x;writeln ('За покупку нужно заплатить ', z,' рублей');End.3.Var N,N1: real;BeginWriteln ('Введите расстояние между городами');readln N);N1:=N-0.3*N;writeln ('Осталось проехать ', N1,' км ');End.