Помогите с Паскалем
даю 15 баллов.

Назначь мой ответ самый лучшимvar  x1, x2, y2 :integer;y:real;begin  //Ввод  writeln ('Введите первое число');  readln (x1);    writeln ('Введите второе число');  readln (x2);  //решение if ((x1+x2)>10) then      begin         y:=x1*x2*2;         writeln('удвоеное произведение введеных чисел = ',y);      end   else      begin        y2:=x1+x2;        y:=x1-x2;        writeln('первое число = ', y2);        writeln('второе число = ', y);      end;    //вывод end.Задача 6Задача: Лодка выдержит наплаву 250кг. Кирпич весит 1450гр. Выдержит ли лодка X кирпичей. Подсчитайте максимальное количество кирпечей, которое выдержит лодкаАвтор:   Дата:  }constKG=250000; //Лодка выдержит наплаву 250000грkir=1450 ;//Кирпич весит 1450гр  var  x, x2, y2 :integer;y:real;begin  //Ввод  writeln ('Введите количество кирпичей');  readln (x);      //решение y:=x*kir;//вес всех кирпичей if (KG>=y)then          writeln('лодка выдержит данное количество кирпечей')        else        writeln('лодка не выдержит данное количество кирпечей');         y:= KG div kir; writeln('максимальное количество кирпечей, которое может выдержать лодка = ', y);end.Задача 7{Задача сделана на языке паскаль, при помощи PaskalPlusОформление сделана как для студенческой задачиЕсли есть вопросы пиши в личкуФайл: progam_stud.pasЗадача: Дано трехзначное число. Найти максимальную цифру.Автор:   Дата:  }  var  x, x1, x2, x3, max :integer;begin  //Ввод  writeln ('Введите число');  readln (x);      //решение x1:=(x div 100);//сотни x2:=((x mod 100) div 10);//десятки x3:=(x mod 10);//единицы if (x1>x2)then      begin      if (x1>x3)then          max:=x1        else          max:=x3;      end   else       begin          if(x2>x3) then              max:=x2          else              max:=x3       end; writeln('максимальная цифра = ', max);  end.