// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var s:=ReadlnString('n=');
s:=('0'*(4-s.Length)+s);
Writeln(Ord(s[:3].ToInteger=s[3:].Inverse.ToInteger));
end.
Что нужно сделать то? Схему нарисовать, или программу написать?
Ну это б так как супруга хочет сказать ему, следовательно он получит информацию
водитель с автобусом и остановкой
автобус с водителем пассажиром контролером
пассажир с автобусомостановкой билетом
контролер с билетом и пассажиром
const
n=30;
var
a:array [1..n] of integer;
i,min:integer;
begin
for i:=1 to n do begin
readln (a[i]);
if a[i]>=20 then min:=a[i];
end;
for i:=2 to n do
if (a[i]>=20) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.