Какое расширение у файлов в скеч ап мейд

Var
  i,n,k:integer;
begin
  Writeln('15 чисел, кратных 19:');
  i:=100;
  while i mod 19<>0 do Inc(i); { первое, кратное 19 }
  Write(i,' ');
  k:=1;
  while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end;
  Writeln
end.

Тестовое решение:
15 чисел, кратных 19:
114 133 152 171 190 209 228 247 266 285 304 323 342 361 380

Задача 2.
var
  m,V,rho,rmax:real;
  i:integer;
begin
  Writeln('Максимальная плотность материала для 30 тел.');
  Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)');
  rmax:=0;
  for i:=1 to 3 do
  begin
    Write(i:2,': '); Read(m,V);
    rho:=m/V;
    if rmax<rho then rmax:=rho
  end;
  Writeln('Максимальная плотность равна ',rmax:0:3)
end.

Трехзначное число, записанное с цифр a,b,c имеет величину
100a+10b+c.
Если зачеркнуть (отбросить) старшую цифру, то получится число 10b+c.
Умножая на 6, получаем 6(10b+c)=60b+6c.
И теперь можно составить уравнение
100a+10b+c=60b+6c
100a=50b+5c
100a=5(10b+c)
20a=10b+c
a=(10b+c)/20  (1)
Рассмотрим соотношения между целочисленными a,b,c
( a ∈ [1;9], b,c ∈ [0;9] ), которые удовлетворяют уравнению (1).
Поскольку 10b кратно 10, то сумма 10b+с может оканчиваться нулем только если с=0.
Тогда (1) принимает вид a=10b/20 или a=b/2
Тогда b - четное, т.е. принимает значения 2, 4, 6, 8.
Соответственно, a принимает значения 1, 2, 3, 4.

Теперь можно записать варианты чисел: 120, 240, 360, 480.