Geriausia klasė [lygiavimas pakeistas] sprendimas Edvino

program Geriausia_Klase;
var
    a: Array[1..4] of real; //Klasiu vidurkiai
    i:integer; //
    d,          //didziausias sk
    c: real;
begin
    Write('Iveskite klasiu vidurkius: ');;
    for i:=1 to 4 do
    begin
        readln(a[i]);
    end;
    d := a[1];
    for i := 2 to 4 do
    begin
        if a[i] > d then
            d := a[i];
    end;
    writeln('Didziausias vidurkis: ',d:2:1);
    writeln('Kitu klasiu vidurkiai skiriasi: ');
    for i := 1 to 4 do
    begin
        c :=d-a[i];
        if c>0 then
            writeln(c:2:1);
    end;
    Readln;
end.