Ниже программа вводит с клавиатуры три целых четырёхзначных числа, вычисляет два числа – максимальное из них и сумму этих чисел. на экран выводится то из них, у которого сумма первой и последней цифр максимальна. если суммы равны, то выводятся оба числа. var a, b, c, d, f, ds, fs : integer; begin vvod(a, b, c); max(d, a, b, c); f: =a+b+c; sum(d, ds) sum(f, fs) if ds> fs then writeln(d) else if dsfs then writeln(d) else if ds

Program 1123; type data = record      g: 0..3000;       mes: 1..12;       day: 1..31;       end; var d1,d2: data; begin  writeln('введите дату через пробел(число, месяц, год)'); readln(d1.day,d1.mes,d1.g); d2: =d1; d2.day: =d1.day+1; with d2 do  case mes of  1,3,5,7,8,10: begin                if day=32 then begin mes: =mes+1; day: =1; end;               end; 4,6,9,11: begin              if day=31 then begin mes: =mes+1; day: =1; end;           end; 2: begin      if g mod 4=0 then begin                          if day=30 then begin mes: =mes+1; day: =1; end; end                  else begin                          if day=29 then begin mes: =mes+1; day: =1; end;                         end;   end; 12: begin      if day=32 then begin g: =g+1; mes: =1; day: =1; end;     end; end; writeln('следующий день ',d2.day,'.',d2.mes,'.',d2.g); end.

Const  mas : array [0..6,0..8] of string = (('иванов иван иванович         ', '1', '2', '3', '1', '5','3', '3', '2'),                                      ('петров петр петрович         ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('сидаров сидор сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                               ('алексеев алексей алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                      ('сергеев сергей сергеевич     ', '2', '2', '5', '5', '5','5', '2', '3'),                                      ('степанов степан степанович   ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('давыдов давид давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                               var sr: real; // средний     b: real; begin  writeln('');   writeln('|             фио             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');   writeln('');   for var i: =0 to 6 do begin    write('|'+mas[i,0]+'|');       sr: =0;     for var j: =1 to 8 do begin    write(' '+mas[i,j]+' |');     double.tryparse(mas[i,j],b); // строку в число    sr: =sr+b;     end;     sr: =sr/8;     write(sr: 5: 3);     write('|');     writeln;   end;   writeln('');   end.