9 lines
174 B
ObjectPascal
9 lines
174 B
ObjectPascal
// Óñëîâíûé îïåðàòîð. Ñîêðàùåííàÿ ôîðìà
|
|
var pass: string;
|
|
|
|
begin
|
|
writeln('Ââåäèòå ïàðîëü: ');
|
|
readln(pass);
|
|
if pass = 'NET' then
|
|
writeln('Ïàðîëü ïðàâèëüíûé');
|
|
end. |