Пожалуйста, напишите программу в паскале (решение): Известна масса каждого…

var min,max: integer; a: real; beginwrite ("Vvedite massi vseh ludei iz gruppy: "); read (a); min: =a; while (a>0) dobeginread (a); if (a>max) max: =a; if (a2) then write ("Verno") else write ("Neverno"); readlnend.