Написать решение на языке Pasсal
1) (Использование условного оператора в теле операторов цикла с условием)!!!
Найти 15 первых натуральных чисел, делящихся нацело на 19 и находящихся в интервале, левая граница которого равна 100.

2) Известны данные о массе (в кг) и объеме (в см3) 30ти тел, изготовленных из различных материалов. Определить максимальную плотность материала.

Пожалуйста!!!

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;  Writelnend.Тестовое решение: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.