Составить программку, которая запрашивая вес покупки в граммах переводило в кг

Program z1;
var a,b:real;    
f:longint;
begin
writeln('ГГГГГЁГГ ГГ*ГГГ Г ГГ:');
read(a);
writeln('ГГГГГЁГГ ГГГЁГ*ГЁГГ ГГГГГГ*:');
writeln('1 - ГГЁГГГЁГГГ*ГГ');
writeln('2 - ГГГ*ГГ');
writeln('3 - ГГЁГГГГГ*ГГ');
writeln('4 - ГГГ*ГГ*ГГ');
writeln('5 - ГГГ*Г*Г*');
read(f); if (flt;1) or (fgt;6) then begin                        writeln('ГГГГГГГЁГГ ГГГГ');                        
read(f);                        
end;
if f=1 then begin            
b:=a*1000000;            
write(a,' ГГ=',' ',b,' ','ГГЁГГГЁГГГ*ГГ');            
end;
if f=2 then begin            
b:=a*1000;            
write(a,' ГГ=',' ',b,' ','ГГГ*ГГ');            
end; if f=3 then begin            
b:=a;            
write(a,' ГГ =',' ',b,' ','ГГЁГГГГГ*ГГ');            
end; if f=4 then begin            
b:=a/100;            
write(a,' ГГ=',' ',b,' ','ГГГ*ГГГГ');            
end;
if f=5 then begin            
b:=a/1000;            
write(a,' ГГ=',' ',b,' ','ГГГ*Г*');            
end;
writeln('ГГГГГГ*ГГГ* ГГ*ГГГГёГГ*Г*');
end.