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

Program student;
Var
fio,n:string;
k,sum,i:integer;
Begin
writeln(Имя и фамилия);
readln(fio);
writeln(Класс);
readln(n);
writeln(Кол-во ур. в Пн);
readln(k);
sum:=sum+k;
writeln(Во Вт);
readln(k);
sum:=sum+k;
writeln(В Ср);
readln(k);
sum:=sum+k;
writeln(В Чт);
readln(k);
sum:=sum+k;
writeln(В Пт);
readln(k);
sum:=sum+k;
writeln(В Сб);
readln(k);
sum:=sum+k;
writeln(Я, ,fio,, ученик ,klass, класса. На этой неделе у меня ,sum, уроков.);
end.