Write a program that asks for your first name, last name, grade and number of lessons on Monday, Tuesday

Write a program that asks for your first name, last name, grade and number of lessons on Monday, Tuesday, Wednesday, Thursday, Friday, and Saturday and displays: Me,, class student. This week I have lessons.

Program student;
Var
fio, n: string;
k, sum, i: integer;
Begin
writeln (‘Name and surname’);
readln (fio);
writeln (‘Class’);
readln (n);
writeln (‘Number of ur. in Mon’);
readln (k);
sum: = sum + k;
writeln (‘In W’);
readln (k);
sum: = sum + k;
writeln (‘On Wed’);
readln (k);
sum: = sum + k;
writeln (‘On Thu’);
readln (k);
sum: = sum + k;
writeln (‘On Fri’);
readln (k);
sum: = sum + k;
writeln (‘On Sat’);
readln (k);
sum: = sum + k;
writeln (‘I,’, fio, ‘, student’, klass, ‘class. This week I have’, sum, ‘lessons.’);
end.