В каком из операторов цикла тело цикла не нужно заключать в begin … end, даже если тело цикла содержит несколько операторов?

While;
For;
Repeat.

Операционная система  Windows 10 Домашняя 64

Процессор

Тип процессора  Core i3

Количество ядер  4

Максимальная тактовая частота  4.2 ГГц

Кэш-память  6 МБ

Сокет 1151 v2

Производитель процессора  Intel

Модель процессора 9100

Частота процессора  3.6 ГГц

Видеокарта

Производитель видеопроцессора NVIDIA

Графический контроллер  GeForce GTX 1650

Объем видеопамяти 4 ГБ

Тип видеопамяти GDDR5

Оперативная память

Оперативная память (RAM)  16 ГБ

Максимальная оперативная память 32 ГБ

Тип оперативной памяти DDR4

Количество слотов памяти 2

Частота памяти  2666 МГц

Жесткий диск

Объем HDD  1 ТБ

Передача данных

Поддержка Gigabit LAN  Да

Встроенный модуль Bluetooth 4.0  

Поддержка Wi-Fi  a/b/g/n/ac

Блок питания

Пиковая мощность блока питания 210 Вт

Интерфейсы

Фронт. разъем для микрофона 3.5 мм 1 шт

LAN разъем (RJ45) 1 шт

Разъем для наушников/микрофона 3.5мм 1 шт

Фронт. порт USB 3.1 Тип C 1 шт

Фронт. порт USB 3.1 Тип A 4 шт

Порт USB 3.1 тип A 4 шт

Порт USB Type-С 1 шт

Выход 3.5 мм 5.1 аудио 1 шт

DisplayPort 2 шт

Выход HDMI  2 шт

Карта памяти

Тип карты памяти SD, SDHC, SDXC  

Цвет

Цвет черный/ серый

Габаритные размеры

Габаритные размеры (В*Ш*Г) 28.52*14.5*36.6 см

Ширина 14.5 см

Высота 28.52 см

Глубина 36.6 см

Вес

Вес 6.24 кг

Серия модели

Серия IdeaCentre T540-15ICK G

следовательно,по этим характеристикам данный пк будет тянуть большинство современных игр

1. 10
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1. 
Var
  n:integer;
Begin
  Write('Введи число ');
  Readln(n);
  if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
  a,b:integer;
Begin
  Write('Введи числа ');
  Readln(a,b);
  if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
  n:integer;
Begin
  write('Введи двузначное число ');
  Readln(n);
  if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.