1.
Var x,y: real;
Begin
writeln ('Введите число х');
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;
Begin
writeln ('Введите стоимость товара');
readln (x);
writeln ('Введите количество кг товара');
readln (c);
z:=c*x;
writeln ('За покупку нужно заплатить ', z,' рублей');
End.
3.
Var N,N1: real;
Begin
Writeln ('Введите расстояние между городами');
readln N);
N1:=N-0.3*N;
writeln ('Осталось проехать ', N1,' км ');
End.