Информатика

Миля

26 ноября, 02:59

Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке 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.