1. Открыть текстовый редактор
2. Набрать содержимое файла
3. Нажать на клавиатуре сочетание клавиш Ctrl + S
4. Выбрать папку, куда сохранится файл
5. Ввести имя файла
6. Нажать кнопку "Сохранить"
Изменились носители информации из-за нового дела, культуры и время.
14×4+14×2+3×2+2×4+14×2+2×2=14×8+2×9=112+18=130метров проволки нужно
1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.