4)
Program n1;
var a,b,c: integer;
begin
randomize;
writeln('программа тренажер по таблице умножения для начальных классов');
writeln('--------------------');
while true do
begin
a:=random(10);
b:=random(10);
writeln('сколько будет ',a,'*',b,' ? ');
readln(c);
if c=a*b then writeln('Молодец') else writeln('Работай дальше');
end;
end.
5)
Program n2;
var a: integer;
begin
readln(a);
case a of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница');
6: write('Суббота');
7: write('Воскресение');
end;
end.