Вычеркивание. пользователь вводит целое трехзначное число. программа сообщает какую цифру в нём вычеркнуть чтобы оставшееся двузначное число было максимально возможным. например, в числе 513 выгоднее вычеркнуть вторую цифру.
нужно составить программу в pascal.​

Разбираешься в компьютерах и играх, но не разбираешься в программирование. Я могу сделать вывод, что ты играл на протяжении 6 лет в игры и собирал себе компьютер для игр

Думаю ты не разбираешься во внутренностях компьютера.

Экзамены перенесли на август, мои тебе советы:

Готовься к ЕГЭ

Смотри видео уроки по профильной математике ЕГЭ от Павла Маслова (Ютуб)

Физику смотри также на Ютубе (Пенкин)

Также могу тебе посоветовать решать каждый день по 15 вариаций заданий, которые ты например выучил решения первого задания матана, решай их как можно больше)

Сдай ЕГЭ

Без него ничего не выйдет

1. "Традиционный" вариант
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: longint): longint;
begin
  while a <> b do if a > b then a := a - b else b := b - a;
  NOD := a
end;

var
  f: Text;
  tNOD: longint;

begin
  Assign(f, 'input.txt'); Reset(f);
  if not Eof(f) then Readln(f, tNOD);
  var n: longint := 1;
  while (not Eof(f)) and (n > 0) and (tNOD > 1) do
  begin
    Readln(f, n);
    if n <> 0 then tNOD := NOD(tNOD, n)
  end;
  Close(f);
  Assign(f, 'output.txt'); Rewrite(f);
  Writeln(f,tNOD);
  Close(f)
end.

2. "Современный" вариант
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: integer): integer;
begin
  while a <> b do if a > b then a -= b else b -= a;
  Result := a
end;

var
  tNOD: integer := 0;
  n: integer;

begin
  foreach var sn in Readlines('input.txt') do
  begin
    n := StrToInt(sn);
    if tNOD = 0 then tNOD := n
    else
    if n = 0 then break else tNOD := NOD(tNOD, n);
  end;
  WriteAllText('output.txt', IntToSTR(tNOD));
end.

Пример файла input.txt находится во вложении, контрольный результат 4096