Var a, b, c:integer;
Begin
Writeln('vvedite chisla');
Readln(a,b,c);
If (a>b) and (a>c) then writeln(a);
If (b>a) and (b>c) then writeln(b);
If (c>a) and (c>b) then writeln(c);
End.
Ответ: Александр может собрать 6 флажков
Витя - х
Костя - y
3х = y
x = y - 18
находим y и х:
y=3y-54
<u>y=27</u>, значит
<u>x=27-18=9</u>
<u>Ответ: Костя решил 27 задач, Витя решил 9 задач</u>
Program z1;
var a,b:integer;
begin
writeln('Введите 2 числа:');
readln(a,b);
if a<b then
write('Меньшее число:',a);
if b<a then
write('Меньшее число:',b);
end.