Question

ПОМОГИТЕ ПОЖАЛУЙСТА-ИНФОРМАТИКА 9 КЛАСС

Answer 1

Var
    name, maxname: string;
    weigth, i, max: integer;

begin
    for i := 1 to 5 do
    begin
        write('Введите название ягоды - ');
        readln(name);
        write('Введите вес ягоды - ');
        readln(weigth);
        
        if weigth > max then begin
            max := weigth;
            maxname := name;
        end;
    end;
    writeln(maxname, ' = ', max);
end.