Ответы и объяснения

2013-05-08T16:01:56+04:00

1)

var a,b,c:integer;
begin
read(a,b,c);
if (a<b) and (b<c) then write('YES') else write('NO');
end.

 

2)

var n,s:integer;
begin
write('Kuda poidew?');
read(n);
if n=-1 then begin writeln('Vi vibrali nalevo, seichas proizoidet 4to-to');
write('skolko vam let');read(s);
if s<18 then write('U vas net 18') else write('U vas 18 let');
end;
if n=0 then begin writeln('Vi vibrali pryamo, seichas proizoidet 4to-to');

end;
if n=1 then begin writeln('Vi vibrali napravo, seichas proizoidet 4to-to');

end;
end.

Пофантазируйте.

Удачи!