1). Напишите программу, запрашивающую ваше имя, фамилию, класс и количество уроков…

Program DZ; Var name: string; klass,urok: integer; Beginwriteln ("Введите имя"); Readln (name); writeln ("Введите класс"); Readln (klass); writeln ("введите колво уроков"); readln (urok); Writеln ("я» ,name,"ученик класса» ,klass,"класса"); writeln ("на этой неделе у меня» ,urok,"уроков"); End.