Kri_listed_type

type
    land = (Australia, Bulgaria, Greece, Italy, Norway, France, Germany);
    capital = (Vene, Sophie, Aphine, Rome, Oslo, Paris, Berlin);
var
    st: land;
    cap: capital;{По значению переменной st(названию страны)присвоить переменной сар название столицы этой страны.}
    n: 0..6;
begin
    write('Vvedite stranu (0-Australia, 1-Bulgaria, 2-Greece, 3-Italy, 4-Norway, 5-France, 6-Germany): ');
    read(n);
    for st:=Australia to Germany do
        if n=ord(st) then break;
    case st of
        Australia: writeln('Vene');
        Bulgaria: writeln('Sophie');
        Greece: writeln('Aphine');
        Italy: writeln('Rome');
        Norway: writeln('Oslo');
        France: writeln('Paris');
        Germany: writeln('Berlin');
    end;
    read;
End.