Между населёнными пунктами A, B, C, D, E построены дороги, протяжённость которых (в километрах) приведена в таблице (см. рисунок). Определите длину кратчайшего пути между пунктами A и Е, проходящего через пункт С. Передвигаться можно только по дорогам, протяжённость которых указана в таблице.
ОЧЕНЬ

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

var x,y: integer;

begin

  read(x,y);

  if (x> 0) and (y> 0) then writeln("i");

  if (x> 0) and (y< 0) then writeln("iv");

  if (x< 0) and (y> 0) then writeln("ii");

  if (x< 0) and (y< 0) then writeln("iii");

end.

1) program imja_program

2) var imja_peremennoj: tip_peremennoj

3)integer,byte,real,long, short и еще какие-то но вряд ли будешь их использовать

более подробно смотри в википедии