Завдання 4.4.2 З клавіатури вводять три числа.Визначити, чи існує трикутник з такими сторонами.
Увага!Умова існування трикутника відома з геометрії: сума двох будь-яких сторін повинна бути більша третьої.

{ Pascal ABC.NET 3.2
  Входной текстовый файл с числами ч/з один пробел.
  (в конце не должно быть пробелов!)
}
const
   f_in_name = 'd:\in9.txt';
   f_tmp_name = 'd:\tmp.tmp';
var  f_in,f_out: text;  i, k: integer;
begin
  Assign(f_in, f_in_name);
  Assign(f_out, f_tmp_name);
  Reset(f_in); Rewrite(f_out);
  k := 0;
  while not Eof(f_in) do begin
    Read(f_in, i); k := k + 1;
    if k mod 2 <> 0 then Write(f_out, ' ', i);
  end;
  Close(f_out);  Close(f_in);
  DeleteFile(f_in_name);
  RenameFile(f_tmp_name, f_in_name);
end.

var

 n, k, s, sa: integer;

 

begin

 k := 0;

 s := 0;

 sa := 0;

 writeln('Введите последовательность, окончание ввода - число 0');

 repeat

   read(n);

   if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;

   if (n <> 0) and (n < 100) then inc(k);

   sa := sa + n

 until n = 0;

 readln;

 writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);

 writeln('Количество чисел, не больших 100, равно ', k);

 writeln('Сумма последовательности равна ', sa);

 readln

end.

Объяснение: