Помогите пожалуйста составить программу для задачи: Даны 3 числа X, Y, Z найти…

Вариант 1vara,b,c: integer; beginreadln (a,b,c); if (a>b) and (a>c) then writeln (a); if (b>a) and (b>c) then writeln (b); if (c>b) and (c>a) then writeln (c); end. Вариант 2var a, b, c: integer; begin readln (a, b, c); if a > b then if a > c then writeln (a, ' — большее') else writeln (c, ' — большее') else if b > c then writeln (b, ' — большее') else writeln (c, ' — большее'); end.