Средняя температура в вашем регионе за последний месяц, <span>среднее число осадков, выпадающих в вашем регионе в течение года</span>
Program pr;
uses crt;
Var a, b, p, s:real;
Begin
Writeln('Введите сторону a');
readln(a);
Writeln('Введите сторону b');
readln(b);
s:=a*b;
p:=2*(a+b);
Writeln('Площадь = ', s);
Writeln('Периметр = ', p);
readln;
<span>end.</span>
Я так понимаю это паскаль, и это связано с тем, что где-то лишнее ; или наоборот, не хватает ;
Две возможные методики решения - через цикл и по формуле для суммы членов арифметической последовательности.
Проблемы - можем получить переполнение, если N слишком большое