паскаль цикл

[янка миронова в]

помогите решить задачи !!!очень срочно!С параметром FOR 1 .вывести на экран квадраты натуральных чисел от 1 до 50.


2.определить среднее значение температуры воздуха в некоторой местности за n дней.

[DM_bite]

1.

program Xd;
var i: integer;
begin
 for i:= 1 to 50 do
  begin
   WriteLn(sqr(i));
   end;
   ReadLn;
   end.

Стыдно, товарисчи, стыдно за такие "задачи"... А что 2 такая трудная? Или вы не знаете как находится среднее значение? Складываем все температуры за n дней и делим на n.