Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Plain Text by BusyV ( 12 years ago )
var x, i: integer;
b: boolean;
begin
b:= false;
for i:= 1 to 4 do
begin
write('Введите число ', i, ': ');
readln(x);
if (odd(x)) then b:= true;
end;
if(b) then writeln('Правда')
else writeln('Ложь');
end.
Revise this Paste