<span>var a,b,c,min,max:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln(min);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln(max);
end<span>.
Пример:
</span><span>1 2 3
1
3</span></span>
Program zz;
var i,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
write('?') ;
for i:=1 to m do
write('!') ;
end.<span>
</span>
Например список учеников класса,можно составить таблицу по нескольким критериям:рост,вес,пол И так далее
Var
a,b,s: integer;
begin
readln(a,b)
s:=(a*b)/2
writeln(s)
end.
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.