Дано число x определить является ли оно четным и положительным кумир

Уберите 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.

В науке числам, которые лежат в основе названий других дано наименование "узловые". Числам, названия которых состоят из других дано наименование "алгоритмические". Так числа три, шесть, десять, сорок, сто — узловые, так как их названия нельзя разобрать по составу. Число же шестьдесят является алгоритмическим, так как его название состоит из названий узловых чисел шесть и десять. 

Объяснение:

У вавилонян узловыми являлись числа 1, 10, 60; в римской системе счисления узловые числа — это 1, 5, 10, 50, 100, 500 и 1000, обозначаемые соответственно I, V, X, L, С, D, М. Знаки, используемые для записи чисел в различных системах счисления. Системы счисления различаются выбором узловых чисел и образования алгоритмических чисел ?