Var
a, b, c : real;
begin
read (a, b, c);
if (a = b) xor (b = c) xor (a = c) then // если только одно из равенств верно
write (sqr (a), ' ', sqr (b), ' ', sqr (c))
else write (a, ' ', b, ' ', c);
end.
<u>1. Самый незатейливый вариант, выдающий значение суммы 21</u>
begin
Writeln(1+2+3+4+5+6)
end.
<u>2. Типовой "школьный вариант"</u>
var
i,s:integer;
begin
s:=0;
for i:=1 to 6 do s:=s+i;
Writeln(s)
end.
<u>3. Современный вариант, немного покороче</u>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(6).Sum.Println
end.
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>
От кнопки Home , это же очевидно.