Const M=7
var T:array[1..7] of Integer;
N,i:integer;
begin
For i:=1 to M do
Readln(T[i]);
For i:=1 to M do
N:=N+T[i];
Writeln(T);
end.
100(5) = 1*5^2 = 25(10)
100(3) = 1*3^2 = 9(10)
Результат отработки алгоритма:
A=2
B=2
C=9
D=3
Можно так:
Program VremjaGoda;
Var i:integer;
Begin
Writeln ('введите номер месяца');
Begin
For i:=1 to 12 do
Begin
If i=1 or i=2 or i=12
Then writeln ('зима');
Else
If i=3 or i=4 or i=5
Then writeln ('Весна');
Else
If i=6 or i=7 or i=8
Then writeln ('Лето');
Else
If i=9 or i=10 or i=11
Then writeln ('Осень');
End;
End;
End.
Можно использовать Case.