Из трех чисел минимальное и максимальное оставить без изменений, третье возвести в куб - Pascal ABC

Формулировка задачи:

Введены три числа, минимальное и максимальное оставить без изменений третье возвести в куб. Помогите найти ошибку в выводе когда ввожу 4 2 3 то пишет Макс=4 Мин=3 Третье=8
var
    a1, a2, a3, max,min: integer;
 
begin
    write ('Введите три числа: ');
    readln (a1, a2, a3);
 
    if a1 >= a2 then  
        max := a1
   else
        max := a2;
 
    if a3 > max then 
        max := a3;
      
 
  if a1 < a2 then
        min := a1
    else
        min := a2;
 
    if a3 < min then
        min := a3;
      
  if a1<a2 then begin 
 if a2<a3 then writeln('Макс=',a3,' Мин=',a1,' Третье=',a2*a2*a2) 
 else writeln('Макс=',a2,' Мин=',a1,' Третье=',a3*a3*a3) ;
end else
 if a1<a3 then writeln('Макс=',a3,' Мин=',a2,' Третье=',a1*a1*a1) 
 else writeln('Макс=',a1,' Мин=',a3,' Третье=',a2*a2*a2) ;
end.

Код к задаче: «Из трех чисел минимальное и максимальное оставить без изменений, третье возвести в куб - Pascal ABC»

textual
' Третье=',srd*srd*srd

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ