[Ghost]

Первая задача:

uses crt;
var a, b, c: integer;
begin
  randomize;
  repeat
    clrscr;
    repeat
      a := random (100);
      b := random (100);
    until b < a;
    write (a, ' - ', b, ' = ?'); readln (c);
    if c = (a - b) then writeln ('верно') else writeln ('неверно');
    writeln ('press ESC for exit..');
  until readkey = #27;
end.

Вторая задача:

uses crt;
var n, k: byte;
begin
  repeat
    clrscr;
    write ('введите число: '); readln (n);
    write (n, ' ');
    k = n mod 10;
    if k = 1 then writeln ('копейка') else
    if k in [2, 3, 4] then writeln ('копейки') else
      writeln ('копеек');
    writeln ('press ESC for exit..');
  until readkey = #27;
end.

Кажись так...