Напишите программу для решения следующей задачи: один литр жидкости для опрыскивания растений от вредителей стоит x копеек . определите стоимость 20,5? литров!?

Var x,y1,y2:integer;
begin
write(x = );
readln(x);
y1:=round(20.5*x) div 100;
y2:=round(20.5*x) mod 100;
writeln(Стоимость 20.5 л = ,y1, руб ,y2, коп);
end.

Пример:
x = 28
Стоимость 20.5 л = 5 руб 74 коп