Даны две переменные вещественного типа: a, b. перераспределить значе- ния данных переменных так, чтобы в a оказалось меньшее из значений, а в b — большее. вывести новые значения переменных a и b.

var a,b,c: real;

begin

readln(a,b);

if a> b then begin

c: =b;

b: =a;

a: =c;

end;

writeln(a,' ',b);

end.

var

  a, b, c : real;

begin

  a : = ;

  b : = ;

  if a > b then

  begin

    c : = a;

    a : = b;

    b : = c;

  end;

writeln('a = ', a);

writeln('b = ', b);

end.

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.