Помогите понять задачку по процедуре.

[Dimidrolus]

Учу по "песням о паскале". Впринципе понял что такое процедура и её параметры. Была задача:

{ P_19_2 – применение процедуры с параметром }
var Man : string;
{--- объявление процедуры с параметром msg ---}
procedure Pause (msg : string);
begin
Write(msg); Readln;
end;
begin {--- главная программа ---}
Writeln(’Как тебя зовут?’); Readln(Man);
Writeln(’Здравствуй, ’, Man);
Pause(’Нажмите Enter…’);
Pause(’Ещё раз…’);
Pause(’И ещё разок!’);
end.

Теперь дана задачка:

) Напишите ещё одну версию процедуры Pause, выводящую сообщение
либо на русском, либо на английском языке. Параметр этой процедуры должен
быть булевым и работать она должна так. Глава 19
Процедуры и функции: разделяй и властвуй
126
Pause(true); { печатается «Нажмите Enter…» }
Pause(false); { печатается «Press Enter…» }

Никак не могу вьехать в условие задачи. Помогите плиз

[BDA]

Теперь pause должна печатать не сообщение, переданное через параметр msg, а по флагу (булевому параметру) определять, какую из двух строк печатать. Оператор if в помощь.

[Dimidrolus]

так?

var s: string; b: boolean;

procedure nacional(b:boolean);
begin
if b then writeln ('russian')
else writeln ('not russian');
end;
begin
writeln ('if your are russian, press 1, if not press 2'); readln (s);
b:=s='1';
nacional(b);
readln;
end.

[Аватар]

Можно и просто: nacional(s='1');

[Dimidrolus]

вообщем насколько я понял то в параметр процедуры я должен положить значение true или false, после чего оно присвоится внутрипроцедурной переменной b. верно?

[Аватар]

В данном случае логическое выражение, которое может быть и просто булевой переменной или константой. Для var параметров выражение нельзя, а только переменную