Var
a, b : integer;
Begin
Write('Vvedite a и b'); Readln(a, b);
Writeln('а меньше b на', b-a);
Writeln('а меньше b в ', b/a, 'раза');
Readln;
End.
Объяснение:
Я смог
