Program abc; var a,b: char: integer; begin; writeln('введите количество десятков лет'); readln(a); case a of; 1: =write('десять'); 2: =write('двадцать'); 3: =write('тридцать'); 4: =write('сорок'); 5: =write('пятьдесят'); 6: =write('шестьдесят'); 7: =write('семьдесят'); 8: =write('восемьдесят'); 9: =write('девяносто'); else write('число введено неверно'); end; writeln('введите количество едениц лет'); readln(b); case b of; 1: =write('один'); 2: =write('два'); 3: =write('три'); 4: =write('четыре'); 5: =write('пять'); 6: =write('шесть'); 7: =write('семь'); 8: =write('восемь'); 9: =write('девять'); else write('число введено неверно'); end; write('a' 'b' лет'); end. здесь содержиться наверное куча ошибок исправить мне выдало ошибку: встречено ': ' а ожидалось '; '

Уберите char. после begin не ставится точка с запятой. в else не нужна точка с запятой, если там один оператор. после of точка с запятой не ставится. в перечне значений case не нужно =. вывод по ходу программы не удобный. в последнем выводе выводите переменные просто как буквы, это ошибка. вот, исправил основные ошибки. program abc; var a,b: integer; begin writeln('введите количество десятков лет'); readln(a); case a of 1: write('десять'); 2: write('двадцать'); 3: write('тридцать'); 4: write('сорок'); 5: write('пятьдесят'); 6: write('шестьдесят'); 7: write('семьдесят'); 8: write('восемьдесят'); 9: write('девяносто'); else write('число введено неверно') end; writeln('введите количество едениц лет'); readln(b); case b of 1: write('один'); 2: write('два'); 3: write('три'); 4: write('четыре'); 5: write('пять'); 6: write('шесть'); 7: write('семь'); 8: write('восемь'); 9: write('девять'); else write('число введено') end; write(a, b, ' лет'); end.

А, D, F

Объяснение:

вот, думаю верно))