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;beginwriteln(Введите количество десятков лет);readln(a);case a of1: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 of1:write(один);2:write(два);3:write(три);4:write(четыре);5:write(пять);6:write(шесть);7:write(семь);8:write(восемь);9:write(девять);Else write(Число введено)end;write(a, b, лет);end.