Сделайте три вида детали по размерам с указанием всех проекционных лучей

Сьогодні неможливо знайти етнічні спільності, які не зазнали б впливу як з боку культур інших народів, так і ширшого суспільного середовища, що існує в окремих регіонах і у світі в цілому. Це виявилося у бурхливому зростанні культурних обмінів та прямих контактів між державними інститутами, соціальними групами, громадськими рухами та окремими індивідами різних країн та культур. Нині у Росії навчається і мешкає чимало людей, які з інших країн. Іноземці стикаються з багатьма проблемами та труднощами при адаптації, такими як мовний та культурний бар'єр, незвичні кліматичні умови, труднощі при спілкуванні та іншими.

Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)

№1

var A, B, C, sum, razn, proizv: integer; chastnoe: real;
label undf;
begin
undf: writeln('Введите А:');
readln(A);
writeln('Введите B:');
readln(B);
writeln('Введите C:');
readln(C);
sum := A + B + C; // находим сумму АВС
proizv := A * B * C; // находим произведение АВС
razn := A - B; // находим разность А и В
chastnoe := B / C; // находим частное В и С
writeln('Сумма А, В, С: ', sum);
writeln('Произведение А, В, С: ', proizv);
writeln('Разность А и В: ', razn);
writeln('Частное В и С: ', chastnoe);
end.

№2

var A, B, razn: integer;
begin
write('Введите А: ');
readln(A);
write('Введите B: ');
readln(B);
razn := abs( A - B );
if A < B then writeln('Первое число меньше второго на ', razn)
else writeln('Первое число больше второго на ', razn);
end.