Код на паскаль

program SwapOrReset;

var
t, p, temp: integer;

begin
writeln('Введите значение переменной t:');
readln(t);
writeln('Введите значение переменной p:');
readln(p);

if t > p then
begin
// Меняем местами значения t и p
temp := t;
t := p;
p := temp;
end
else if p > t then
begin
// Присваиваем обеим переменным значение 0
t := 0;
p := 0;
end;
// Если t равно p, оставляем без изменения

writeln('Значение переменной t: ', t);
writeln('Значение переменной p: ', p);
end.