[ paskal] функция определяющая континент

[ohucheni]

помогите пожалуйста написать программу на Тубро Паскале.

описать type
country=(austria,ghana,italy,peru,u sa,sweden);
continant=(america,africa,europe);
var
x,y:country; t:boolean;
описать функцию count(s) определяющую континент на котором находится страна s и использовать ее для изменения значения переменной t на противоположное если страны x и y находятся на разных континентах.

заранее благодарю)

[Jean-Esther]

type country=(austria,ghana,italy,peru,usa,sweden);
type continant=(america,africa,europe);
const link:array[country] of continant = (europe,africa,europe,america,america,europe); {изменишь это, если что}
var x,y:coutry;
var t:boolean;
function Count(s:country) : continant;
begin
    Count:=link[s];
end;
begin
{...}
if Count(x)=count(y) then t:=not t;
{...}
end.

[ohucheni]

бальшое спасиб ))