Используя процедуру с одним параметром записать код программы, в результате выполнения которой будет выведено на экран: ggg ggg

Хорошо, давайте разберем эту задачу пошагово.

В данном случае нам нужно написать программу, которая будет выводить на экран строку "ggg"
и затем строку "ggg".

1. Начнем с объявления процедуры с одним параметром. Для этого используем ключевое слово "procedure" и указываем имя процедуры. Параметр будет передаваться в функцию и использоваться внутри программы. Для данной задачи у нас не требуется передача параметров, поэтому не будем указывать имя параметра.
Пример:
procedure Процедура();

2. Далее, опишем тело процедуры, в котором будем выводить строку "ggg". Используем функцию writeln для вывода на экран. После вывода строки необходимо указать символ перевода строки (
).
Пример:
begin
writeln('ggg');
writeln('
');
end;

3. Конечно, нам также нужно вызвать эту процедуру, чтобы код был выполнен. Для этого добавляем вызов процедуры Процедура() в основную программу.
Пример:
begin
Процедура();
end.

Теперь, объединим все части программы вместе:

procedure Процедура();
begin
writeln('ggg');
writeln('
');
end;

begin
Процедура();
end.

Итак, при выполнении этой программы, на экране будет выведено:
ggg
ggg