[code lang=pascal]uses crt;
procedure max;
var a,b,c,d,mx:integer;
begin
clrscr;
writeln('Введите 4 целых числа');
readln(a,b,c,d);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
if d>mx then mx:=d;
writeln('Максимальное из них=',mx);
readln
end;
procedure znc;
var x,y:real;
begin
clrscr;
write('Введите значение x=');
readln(x);
if x<=-5 then y:=3.5
else if x<=0 then y:=-x
else if x<=2 then y:=x
else y:=-x+5;
write('y=',y:0:2);
readln
end;
var w:char;
a,b,c,d:integer;
x,y:real;
begin
repeat
clrscr;
writeln('Выберите действие');
writeln('1-найти максимальный');
writeln('2-найти значение функции');
writeln('другое-выход');
readln(w);
case w of
'1':max;
'2':znc;
else exit;
end;
until not (w in ['1','2']);
end.[/code]