Даны две переменные целого типа: a и b. если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.

program qq;

var   a,b,max: integer;

begin  

writeln('введите а и б');  

readln(a,b);

if a=b then

begin  

a: =0;

b: =0;

end

else if   a> b

then max: =a   else max: =b;

begin a: =max;

b: =max;

end;

writeln(a: 4,b: 4);

end.

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот