Переделайте программу на паскале...

Question

var q:string; 
var pas:string; 
begin 
writeln('введите пароль'); 
Readln(pas); 
if pas='12345' then Writeln('Пароль верный! Проходи! ') else writeln('Не верный пароль! '); 
readln end. 
 
Сделайте так, чтобы эта программа работала без else, не теряя своих функций.

Ирина · Accepted Answer

вот ответ

Юлия · Answer

Варианты: 
- while; 
- case; 
- преобразование в число и указатели на функции. 
Это навскидку. Тебе какой вариант? И не забудь волшебное слово!

Сергей · Answer

Program M; 
uses crt; 
label 1; 
var q:string; 
var pas:string; 
begin 
writeln('введите пароль'); 
Readln(pas); 
if pas<>'12345' then begin 
 Writeln('Пароль не верный! ' ); goto 1;end; 
 writeln(' верный пароль! '); 
1:readln 
end.