Синформатикой надо составить программу для паскаль авс. рабочий в первом месяце получил зарплату 8000 рублей ,а во втором месяце на 30% больше ,чем в первом .вывести на экран сколько зарплаты он получит за два месяца

Var x,s: integer;                                             (x*30/100)- расчёт процентов        begin x: =8000; s: =x+x+(x*30/100); writeln ('s=',s); end,

Существуют специальные таблицы кодировки символов, в которых каждому символу соответствует свой уникальный номер. на фото часть одной из таких таблиц. а ниже программка на паскале, иллюстрирующая работу этих функций: program aaa; //chr (x), ord (x), pred (x), succ (x), var x: integer; y,z: string;   begin //присвоим переменной у значение символа под номером 102: y: =chr(102); writeln('chr(102)= ',y); //присвоим переменной x номер позиции символа а в таблице кодировки windows ascii: x: =ord('f');   writeln('ord(''f'')= ',x); //а теперь возьмем символ алфавита "ф":   x: =ord('ф'); //  writeln('ord(''ф'')= ',x); //теперь нам нужен символ, следующий, например, за символом ю: y: =succ('ю'); writeln('succ(''ю'')= ',y); //или символ, предществующий символу я: y: =pred('я'); writeln('pred(''я'')= ',y); end. результат работы программы: chr(102)= f ord('f')= 102 ord('ф')= 212 succ('ю')= я pred('я')= ю