m0nclous

Verified answer

1) Определение теплоты 
Var q,i,rt:real;
Begin
   Write('i='); readln(i);
   Write('Rt='); readln(rt);
q:=(i*i)*rt;
   Writeln('Q=',q); 
End.

2) Площадь треугольника
Var s,p,a,b,c:real;
Begin
  Write('A='); readln(a);
  Write('B='); readln(b);
  Write('C='); readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
s:=sqrt(s);
 Writeln('S=',s);
End.

3)Массив 
 Var mas:array[1500..3700] of integer;
       i,n:integer;
Begin 
for i:=1500 to 3700 do begin
mas[i]:=i;
                                       if (mas[i] mod 206 = 0) then writeln(mas[i]);
end;
end.