===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var (k1, k2) := ReadInteger2;
a[k1 - 1:k2].Sum.Println
end.
Задание А)
program date;
var m: Integer;
begin
Write('Введите номер месяца (от 1 до 12): ');
ReadLn(m);
if (m=12) or (m=1) or (m=2)
then begin
WriteLn('Зима');
end else if (m=3) or (m=4) or (m=5)
then begin
WriteLn('Весна');
end else if (m=6) or (m=7) or (m=8)
then begin
WriteLn('Лето');
end else if (m=9) or (m=10) or (m=11)
then begin
WriteLn('Осень');
end;
end.
Легко клавища ентер и пуск домой зашимаешь их и ввцдет слово гнездо но если перевести его на русский!
Word Art, шрифт, таблица и т.д