1 lygis | 2 pamokėlė | 5. Geriausia klasė

var a, b, c, d, max : real;
begin
  WriteLn('Įveskite klasių vidurkius:');
  Readln(a, b, c, d);

  max := a;
  if b > max then
    max := b;
  if c > max then
    max := c;
  if d > max then
    max := d;

  writeln('Didžiausias vidurkis: ', max:2:1);
  writeln('Kitų klasių vidurkiai skiriasi: ', max-a:2:1, ', ', max-b:2:1, ', ', max-c:2:1, ', ', max-d:2:1);
end.