Даны два действительных числа х и y.если х> y, то вычислить произведение этих чисел, иначе их сумма

var x,y:real;
 begin write('x=');read(x);
write('y=');read(y);
 if x>y then writeln(x*y) else writeln(x+y);
end.

type goods = record  name:String;  price:real;  end;const GOODS_COUNT = 5;var goodsList:array[1..GOODS_COUNT] of goods;id:integer;begin  goodsList[1].name:='iPhone 5s';  goodsList[1].price:=760.0;  goodsList[2].name:='Samsung Galaxy s5';  goodsList[2].price:=540.0;  goodsList[3].name:='Simens m60';  goodsList[3].price:=12.5;  goodsList[4].name:='HTC ONE X';  goodsList[4].price:=450.5;  goodsList[5].name:='LG L9';  goodsList[5].price:=600.0;    write('Write goods id:');  readln(id);  if ( ( id < 0 ) or ( id > GOODS_COUNT ) ) then    writeln('WRONG ID')  else    writeln(goodsList[id].name,' price =',goodsList[id].price);    end.

1)

#1 color of rainbow is red

#2 color of rainbow is orange

#3 color of rainbow is yellow

#4 color of rainbow is green

#5 color of rainbow is cyan

#6 color of rainbow is blue

#7 color of rainbow is violet

2)

1, 2, 3, one, two, three

3)

0 0

1  1

2 4

3 9

Кiнець циклу

4)

15

5)

1

4

9

16

25

36

49

64

81

100

Объяснение:

1) Значения из массива выводятся по очереди благодаря циклу, подставляя вперед значение i

2) Все значения из массива по очереди выводятся в консоль

3) Цикл от 0 до 3 в котором сначала выводится итератор, а затем итератор в степени 2

4) Цикл в котором складываются числа от 1 до 5

5) Цикл в котором выводится итератор в степени 2, до тех пор пока итератор не станет равен 11