Помогите c программированием...

Question

Помогите c программированием...

Иван Петров Знаток (281), на голосовании 11 лет назад

var q:string;
var pas:string;
begin
writeln('введите пароль');
Readln(pas);
if pas='12345' then Writeln('Пароль верный! Проходи! ') else writeln('Не верный пароль! ');
readln end.

Сделайте так, чтобы эта программа работала без else, не теряя своих функций.

Answer 1

if pass='12345' then begin writeln( 'успех ); exit; end;
writeln( 'Неуспех' );

Answer 2

Кублен Оракул (97021) 11 лет назад

смотри ответ Ирины Голевой