3) Faça um programa que leia o nome de três cidades, a seguir cadastre e exiba na tela a distância entre essas cidades.

Program Pzim ;


var
cidades: array[1..3]of string;
distancia: array[1..3,1..3 ]of real ;
cont,linha, coluna:integer ;

Begin
for linha:= 1 to 3 do 
begin
writeln('digite o nome da cidade');
readln(cidades[linha]);
end;
begin
for coluna:= 1 to 3 do
begin
writeln('digite a distancia entre as cidades');
readln(distancia[linha,coluna]);
end;
writeln('o nome da cidade e',cidades[linha]);
writeln('a distancia entre as cidades e', distancia[linha,coluna]);
end;
End.