Даны переменные A,B,C,D, отыскать среди них максимум и минимум…

Question

Даны переменные A,B,C,D, отыскать среди них максимум и минимум, нужно текст для паскаля, помогитепожалуйста

vldm77 · Accepted Answer

Program avx; var a,b,c,d; beginread (a,b,c,d); if (a<b) thena: =b; elseif a<c then a: =c; elseif a<d then a: =d; write (a); end.