uses crt;
var
sehir,iklim:array [1..5] of string[20];
turistm:array[1..5,1..3]of string[20];
uzaklik :array [1..5] of real;
i,j,t :integer;
tus:char;
 
procedure basla;
begin
 sehir[1]:='Istanbul';
 sehir[2]:='Ankara';
 sehir[3]:='Bursa';
 sehir[4]:='Izmir';
 sehir[5]:='Erzurum';
 
 iklim[1]:='Iliman';
 iklim[2]:='Karasal';
 iklim[3]:='Karma';
 iklim[4]:='Akdeniz';
 iklim[5]:='Karasal';
 
 turistm[1,1]:='a';turistm[1,2]:='b';
 turistm[2,1]:='c';turistm[2,2]:='d';
 turistm[3,1]:='e';turistm[3,2]:='f';
 turistm[4,1]:='g';turistm[4,2]:='h';
 turistm[5,1]:='y';turistm[5,2]:='z';
 
 uzaklik[2]:=453;
 uzaklik[3]:=243;
 uzaklik[4]:=565;
 uzaklik[5]:=1224;
 
end;
 
procedure ilbil;
begin
 if t <>1 then begin
   write(sehir[t],' sehrinin iklimi: ', iklim[t],', turistik merkezleri: ',turistm[t,1]);
   writeln(',',turistm[t,2],' dir. Istanbula uzakligi : ',trunc(uzaklik[t]),'km dir.' ); end
else begin
 writeln(sehir[1],'sehrinin iklimi: ', iklim[1],', turistik merkezleri: ',turistm[1,1]);
 writeln(',',turistm[1,2],' dir.'); end;
end;
 
begin
clrscr;
repeat;
basla;
writeln('Ili seciniz..[1..5]:');
writeln('1:Istanbul ');
writeln('2:Ankara ');
writeln('3:Bursa ');
writeln('4:Izmir ');
writeln('5:Erzurum ');
writeln(' ');
readln(t);
ilbil;
writeln('Cikmak icin * karakterine basiniz');
tus:=readkey;
until tus='*';
readln;
end.