Ответ:

1)

Var

a, b : integer;

x: real;

Begin

Write('a, b:'); Readln(a,b);

x:=b/a;

Write('x=',x);

Readln;

End.

3)

Var

x,a, b: integer;

Begin

Write('Kg='); Readln(x);

Write('1Kg skolko rubley='); Readln(a);

b:=a*x;

Write('V obshem potracheno ',b,' rubley');

Readln;

End.

Объяснение:

Второе не получилось,

Я смог помочь!?