Ответ:
var i: integer;
begin
for i:=10 to 99 do
if (i mod 7 = 0) and (616 mod i = 0) then writeln (i)
end.
Var a,b:real;
i,d:integer;
begin
a:=0;
b:=0;
d:=1;
for i:=1 to 30 do begin
a:=a+100;
b:=b+d;
d:=d*2;
end;
b:=b/100;
if a>b then writeln('Богач отдал больше') else writeln('Бедный отдал больше');
end.
Каждой букве соответствует своя цифра, например: 495+459=954
14*8= 112мин, (14+2 = 16 машин стало), 112:16= 7 мин
//PascalABC.NET
2)
begin
arrrandom(20, 0, 15).Println.Where(x -> x.IsOdd).Count.Println;
end.
3)
begin
readarrinteger('Введите результаты подтягиваний 18 учеников:', 18).Min.Println();
end.