Помогите создать процедуру Function, позволяющую при выборе страны указывать ее столицу....

Question

Помогите создать процедуру Function, позволяющую при выборе страны указывать ее столицу. (Россия – Москва, Китай – Пекин, Франция – Париж) дам 15 б! Очень надо

Answer 1

1)Функция

program fun;

function f(a : string) : string;

var

l:string;

begin

case a of

'Россия' : l:='Москва';

'Китай' :  l:='Пекин';

'Франция' : l:='Париж';

else l:=('Введите страну из списка');

end;

f:=l;

end;

var  

k: string ;

begin

writeln('Введите страну');

read(k);

writeln('Столица: ',f(k));

end.

2)Процедура

program fun;

procedure f(a : string) ;

var

l:string;

begin

case a of

'Россия' : l:='Москва';

'Китай' :  l:='Пекин';

'Франция' : l:='Париж';

else l:=('Введите страну из списка');

end;

writeln(l);

end;

var  

k: string ;

begin

writeln('Введите страну');

read(k);

f(k);

end.