Program remont;
{Programm v„ljastab auto kärguse estakaadil, kui sisestatakse
auto kaugus estakaadi algusest. Estakaadi kuju
on j„rgmine:
2           __________
          /             \
0  ___/                    \___
   0  3     9         19    25 28

ning auto kärgus maapinnast vastab j„rgnevale seosele

0                 kui kaugus estakaadi algusest on 0..3  m
(kaugus-3)*2/6,            -""-                    3..9  m
2                          -""-                    9..19 m
2-(kaugus-19)*2/6,         -""-                   19..25 m
0                          -""-                   25..28 m}

var kaugus, korgus: real;

begin
  write('Kaugus estakaadi algusest: ');
  readln(kaugus);
  if kaugus<0 then korgus:=-100
  else if kaugus<3 then korgus:=0
  else if kaugus<9 then korgus:=(kaugus-3)*2/6
  else if kaugus<19 then korgus:=2
  else if kaugus<25 then korgus:=2-(kaugus-19)*2/6
  else if kaugus<28 then korgus:=0
  else korgus:=-100;
  if korgus<0 then writeln('Auto pole estakaadil ')
  else writeln('Auto kärgus maapinnast on ',
        korgus:5:1,' meetrit.');
end.