Ответ:

• var a, b, c, max: integer;
• begin
• write('Введіть перше число - ');
• readln(a);
• write('Введіть друге число – ');
• readln(b);
• write('Введіть третє число - ');
• readln(c);
• if a > b then
• if a > c then max := a
• else max := c
• else max := b;
• writeln('Найбільше число = ', max);
• end.

или так:

• begin
• var a := ReadInteger('Введіть перше число -');
• var b := ReadInteger('Введіть друге число –');
• var c := ReadInteger('Введіть третє число -');
• Print('Найбільше число =', Max(a,b,c));
• end.

Примеры работ: