помогите с задачей(программой) пожалусто...

[Алексеей]

1. Заданы три числа целого типа определить максимальное из них?

2. Заданы два числа целого типа и переменные X,Y. если числа равны между собой то заменить их нулями в противном случае оставить без изменения?
-
-
-
-
Помогите пожалусто нужно решить алгоритм действий и по нему составить программу...

[Mad_Cat]

1

m:=a;
if m<b then m:=b;
if m<c then m:=c;
writeln(m);

2

if x=y then begin x:=x*0;y:=y*0;end;