Помогите пожалуйста! Нужно ответить на вопросы?! Срочно!!! Помогите пожалуйста!!!

1 var2 const3 begin4 end5 if case6 then esle7 readln8 write 9 integer, biginteger, integer64, byte10 real11 var i:byte;12 write('введите переменную с');13 read();14 write('5+8 = ',5+8);15 if x>y then y=x; write('блабла',y)16 задание 11 17 переменная кн равна 018 если б меньше переменной мин, то переменная макс равна б19 считать переменную а и перейти на новую строку20 оператор условия от н: если н равно 1, то выполнит условие в скобках.