var x: integer;
begin
readln(x);
if (x=0) or (x<0) then
write(0)
else
if (x>1) then
write(x*x)
write(x);
end.
Вроде как так, с точками с запятой, надеюсь, не ошиблась.
При х=14 значение 'у' будет 196.
пусть Стул & диван = А
Стол = Б
а кровать = В
тогда получается что
(Б или А) и В = 890 = (Б и В) или (А и В) -(А и Б и В)
Б и В = 780
А и В = 320
780 +320 = (А и В) или (Б и В) = 1100
1100 - 890 = А и Б и В = 210
При прохождении первого цикла массив заполнится так:
А = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
t=1
А во втором цикле в задании ошибка. Цикл идет от 0 до 9
A(-1) существовать не может