Одна головка сыра весит 2кг 300г; сколько весят м головок сыра? (ответ дать в кг и г) ! надо составить линейный алгоритм в !

Program k23;var a, m:integer;begina:=2300;readln(m);a:=a*m;writeln(a div 1000, ' кг ', a-1000*(a div 1000), ' гр');end.