13 lines
210 B
ObjectPascal
13 lines
210 B
ObjectPascal
Program While_Task3;
|
|
const n=5;
|
|
var a:integer;
|
|
begin
|
|
WriteLn('Ââåäè 5');
|
|
ReadLn(a);
|
|
While a<>n do
|
|
begin
|
|
WriteLn ('Íå âåðíî, ïîïðîáóé åùå');
|
|
ReadLn(a);
|
|
end;
|
|
WriteLn('Ìîëîäåö');
|
|
end. |