Делфи - обьектно ориентированная среда программирования обжект паскаль. Так что структурно паскалем там катит (работает из-под ДОСа)
1)
var a,b,c,max,max2, max3:integer; begin writeln ('vvedite chisla'); read (a); read (b); read (c); begin if (a>b) then begin max:=a end; if (b>a) then begin max:=b end; if (c>max) then begin max2:=c; end; if (max>max2) then max3:=max; if (max<max2) then max3:=max2; writeln (max3); end; end.