var a,b:integer;
Begin
read(a,b);
if ((a>b) and (a mod b = 0))
or ((b>a) and (b mod a = 0)) then writeln(a+b)
else writeln(a-b);
End.
размер рабочей области (12 задание) надо в inkscape выбирать
Var a,b,c,sa: real;
begin
writeln ('Введите 3 числа:');
readln (a,b,c);
sa:=(a+b+c)/3;
writeln;
writeln ('Среднее арифметическое = ',sa)
end.
-----------------
Введите 3 числа:
28.48 53.11 674.1
Среднее арифметическое = 251.896666666667
Вот так как то, если неправильно, напишите в комментах
program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
else
if a>c then writeln (b,c,a)
else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
if b>c then writeln (a,c,b)
else write(a,b,c)
end;
end.