у стандартному потоці через пробіл дані числа a та b. Дробову частину а помножили на b і вивели результат у консоль заокруглений до найближчого цілого​

program test;

var A, B, C : real;

begin

{Читаем стандартный ввод в переменные А и В}

Write('Введите А и В: ');

ReadLn(A, B);

{Дробную часть А умножаем на В}

C := Frac(A) * B;

{Печатаем округленный до бл. целого результат}

WriteLn('Результат вычислений - ', int(C))

end.