FPC 3.0.4.
64 - разрядная операционная система. Windows 10.
не могу понять, правильно ли работает компилятор.
подскажите, пожалуйста.
привожу пример.
- Код: Выделить всё
var A, B : Boolean; S: string;
begin
Write(’Улица A:’); Readln(S); A:= S=’1’;
Write(’Улица B:’); Readln(S); B:= S=’1’;
if A and B then S:=’Поезжай на машине!’
else S:=’Топай пешком!’;
Writeln(S); Readln
end.
после запуска программы идет сообщние улица A:, ввожу цифру 1, жму Enter, текст улица A: 1 не меняется, далее снова жму Enter - выдается сообщение улица B: 1, хотя цифру 1 я не вводил..
можете помочь исправить? мне кажется, после сообщения Улица A:, ввода значения и нажатия Enter, строка должна очиститься и появиться следующее сообщение(улица B:) для подтверждения ввода другого значения..