Как решать задачи

const
  n=15;
var
  i,x,y,score:integer;
  z,otv:integer;
  oc:integer;
begin
  randomize;
  score:=0;
  for i:=1 to n do
    begin
      x:=random(10);
      y:=random(10);
      z:=x*y;
      write('Умножить ',x,' на ',y,' = ? ');
      readln(otv);
      if z=otv then
        inc(score);
    end;
  writeln('Правильных ответов: ',score);
  score:=n-score; 
  case score of
    0..3: oc:=5;
    4..6: oc:=4;
    7..8: oc:=3
  else
    oc:=2;
  end; {of case}
  writeln('Ваша оценка: ',oc);
  readln;
end.

var i, a, b, r, o: integer;
begin
  randomize;
  o := 0;
  for i := 1 to 15 do
    begin
      a := 2 + random(8);
      b := 2 + random(8);
      write(a, ' * ', b, ' = ');
      readln(r);
      if a * b = r then inc(o)
    end;
  writeln('Оценка: ', o div 3 + 1);
  readln
end.

var
  s:string; n:integer;
begin
 
    repeat
     writeln('Введите день недели');     readln(n);
       case n of 
        1: s:='пн';
        2: s:='вт';
        3: s:='ср';
        4: s:='чт';
        5: s:='пт';
        6: s:='сб';
        7: s:='вс';
       else s:='Неправильный ввод';
       end;
      writeln(s)
     until false;
end.

var s, p: string; n, error: integer;
begin
  repeat
    write('Введите день недели: ');
    readln(p);
    val(p, n, error);
    if error <> 0 then n := 0;
    case n of
      1: s:='Понедельник';
      2: s:='Вторник';
      3: s:='Среда';
      4: s:='Четверг';
      5: s:='Пятница';
      6: s:='Суббота';
      7: s:='Воскресение'
      else s:='Неправильный ввод'
    end;
    writeln(s)
   until false
end.

const
  Days: array [1..7] of String[11] = (
    'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
var n: Integer;
begin
  repeat
    Write('Введите номер дня недели: ');
    {$I-}ReadLn(n);{$I+}
  until (IOResult=0) and (n in [1..7]);
  WriteLn(Days[n]);
end.

const
  Days: array [1..7] of String[11] = (
    'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
var n: Integer;
begin
  repeat
    Write('Введите номер дня недели [1..7]: ');
    {$I-}ReadLn(n);{$I+}
    if (IOResult=0) and (n in [1..7]) then Break
    else WriteLn('*** Ошибка: неправильный ввод.');
  until False;
  WriteLn(Days[n]);
end.