задан вес B в килограммах,ввести данную величину в тоннах,в граммах
Помогите составить программу по информатике

b = InputBox("Введи значение в килограммах!")gr = b*1000t = b/1000MsgBox "Тонны: " & t & "Граммы: " & gr(Это VBS)VARa,b,c:integer;BEGINRead(a);Write('Тонны:');WriteLn(a*1000);Write('Граммы:');WriteLn(a/1000);END.(Это Pascal)