pascalabcnet/InstallerSamples/!Tutorial/05_IfCaseBoolean/If2.pas

// Условный оператор. Сокращенная форма
var pass: string;

begin
  writeln('Введите пароль: ');
  readln(pass);
  if pass = 'NET' then 
    writeln('Пароль правильный');
end.
change encoding for all .pas and .cs files: cp1251 -> utf-8 2015-12-28 14:25:15 +03:00			`// Условный оператор. Сокращенная форма`
initial commit 2015-05-14 22:35:07 +03:00			`var pass: string;`

			`begin`
change encoding for all .pas and .cs files: cp1251 -> utf-8 2015-12-28 14:25:15 +03:00			`writeln('Введите пароль: ');`
initial commit 2015-05-14 22:35:07 +03:00			`readln(pass);`
			`if pass = 'NET' then`
change encoding for all .pas and .cs files: cp1251 -> utf-8 2015-12-28 14:25:15 +03:00			`writeln('Пароль правильный');`
initial commit 2015-05-14 22:35:07 +03:00			`end.`