Вы не указали конкретно, что нужно сделать. Ну, если нужно написать программу в Pascal, то она ниже. Либо напишите нормально что Вам нужно.
Begin
Writeln('На запад от Москвы природа подмосковного края.');
End.
Var
y, x : Real;
begin
WriteLn('Vvedite X'); ReadLn(x);
y:= sqrt(sqr(x)*x);
WriteLn('Otvet:', y);
ReadLn;
end.
1 - 26
2 - 6
3 - 30
4 - 6
5 - 1
6 - 4
7 - 8
div - частное от целочисленного деления, например, 22 div 4 = 5, 26 div 6 = 4 и тд
mod - остаток от целочисленного деления, например, 22 mod 4 = 2, 24 mod 5 = 4 и тд