Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program lab_1_1;
- Uses
- System.SysUtils;
- var Age, C: integer;
- IsCorrect : boolean;
- const B = 18;
- begin
- Repeat
- IsCorrect := True;
- writeln ('Сколько Вам лет?');
- Try
- ReadLn(Age);
- Except
- Writeln('Вы ввели не число, попробуйте снова.');
- IsCorrect := False;
- End;
- If ((IsCorrect) And (Age < 1)) Then
- Begin
- Writeln('Ожидалось положительное число.');
- IsCorrect := False;
- End;
- Until(IsCorrect);
- if Age < B then
- begin
- C := B-Age;
- write ('Вам будет предоставлено право голосовать через ', C);
- if C > 4 then
- begin
- writeln (' лет');
- end
- else if C = 1 then
- begin
- writeln (' год');
- end
- else begin
- writeln (' года');
- end;
- end
- else
- begin
- writeln ('Вы имеете право голосовать');
- end;
- readln(Age,C) ;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement