Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.
var a,b,c,d,z:integer;
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
while (z = 1) do
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
end;
end.
Концевая цапфа, предназначенная нести преимущественно осевую нагрузку, называется пятой (рис. б). Опорами для пят служат подпятники – упорные подшипники скольжения или качения.
По форме цапфы могут быть цилиндрическими, коническими, шаровыми и плоскими (пяты).
Кольцевое утолщение вала (между шипом и головкой) (рис. а), составляющее с ним одно целое, называется буртиком. Переходная поверхность от одного сечения вала к другому, служащая для упора насаживаемых на вал деталей (от шипа к буртику для упора подшипника), называется заплечиком (рис. а).