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

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 (f< 1) or (f> 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.

ответ:Ужас я учитель твой я спалил расскажу маме!

Объяснение: