9 lines
235 B
ObjectPascal
9 lines
235 B
ObjectPascal
// Условный оператор. Сокращенная форма
|
|
var pass: string;
|
|
|
|
begin
|
|
writeln('Введите пароль: ');
|
|
readln(pass);
|
|
if pass = 'NET' then
|
|
writeln('Пароль правильный');
|
|
end. |