Begin
var a:=ArrRandom(10,-150,250); a.Println;
var max := a.Max;
println('Максимальное = ', max);
a.Transform(t->t=max ? max*(-1):t);
a.Println;
end.
Никлаус Вирт"Алгоритмы и структуры данных"<<Тебе сюда(Никто ответы тут писать тебе не будет)
Var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a>b then writeln(a,' - максимальное')
else if b>a then writeln(b,' - максимальное')
else
writeln('Значения равны');
end.
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)