Информатика

Клавдий

6 апреля, 02:45

Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC)

Program Home;

Uses CRT;

Var a: integer;

b: real;

Begin

WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;

ReadLn (a) ;

WriteLn ('Введите число, которое нужно перевести в килограммы') ;

ReadLn (b) ;

If (a = 'килограмм') then

WriteLn (b) ;

If (a = 'миллиграмм') then begin

b : = b / 1000000;

WriteLn (b) ;

end;

If (a = 'грамм') then begin

b: = b / 1000;

WriteLn (b)

end;

If (a = 'тонна') then begin

b: = b * 1000;

WriteLn (b) ;

end;

If (a = 'центнер') then begin

b: = b * 100;

WriteLn (b) ;

end;

End.