Умова: Дано значення цілих величин х та у.
Знайти:
mах 
(х,у) — mіп (х,у)
Текст програми:
Program p4;
Uses crt;
Var х,у,Max,Min,Rezultat:integer;
Begin
Clrscr; (Очищення екрану}
Write('Введіть значення х та у: ');
Readln(x,y) ;
If х<у {Знаходження максимуму та мінімуму}
Then Begin
Мах:=у; Min:=x;
End
Else Begin
Max:=x; Min:=y;
End;
Rezultat:=sqr(Max)-sqr(Min);
Writeln('Результат обчислень: ',Rezultat:8:2);
Readkey ; {Затримка зображення на екрані
до натискання будь-якої клавіші}
End.
