Написать программу в паскале, которая после введенного с клавиатуры числа(в спектре

Написать программку в паскале, которая после введенного с клавиатуры числа(в спектре от 1 до 99), означающий денежную единицу, дописывал слово "Копейка". Например ,5 копеек,41 копейка и тд.

Вот мои пробы сделать программку:

Program Kopeika;
Var a:integer;
begin
Writeln('Vvedite chislo');
Readln(a);
Case a of
'1,21,31,41,51,61,71,81,91': a:='Kopeika ';
'2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94': a:='Kopeiki ';
'5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99': a:=' Kopeek';
end;
Readln;
end.

Степан 2019-08-10 10:05:51

Program Kopeika;Var a:integer;beginWriteln('Vvedite chislo');Readln(a);Case a of'1,21,31,41,51,61,71,81,91': a:='Kopeika '; Тут ошибка, числа типа integer не выделяются апострофами, выделяются только строчки, то есть компилятор принимает значения между ' ' как строчку из букв и чисел, но в операторе case можно использовать только числовые типы, потому ' ' нужно убрать

София 2019-08-10 10:14:41

Потом, по условию, если число а попадает в данный спектр, то ему присваивается вновь же знаки типа строчка (string), нельзя присвоить числовой переменной строковое значение. Для вывода сообщений и значений переменных используется функция write('текст') либо write(a) теснее без кавычек, если это переменная, а не сообщение, которое необходимо вывести.

Nikolaj Shandurskij 2019-08-10 10:15:57

Тут подойдет такая команда write(a, 'kopeika'); То есть, сначала выводиться число а, введенное с клавиатуры, а потом текст теснее в апострофах. Переменные необходимо отделять от сообщения запятыми.