Дано n цілих чисел. Знайти серед них від'ємні числа та їх порядковий номер. Якщо є декілька таких чисел, то визначте порядковий номер першого такого числа. Якщо такі
числа відсутні, то вивести відповідне повідомлення.

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

третье, там где пять

5> 4 и не 5> =6

2^3 = 8 цветов (скорее всего оттенки серого)

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end