На столько хватило времени.
Еще можно при помощи макросов автоматизировать ведение базы до 60000 записей
А где задания?
Хотя бы фото отправить надо.
Домашние приборы,размер,и цвет
Uses crt;var i,n,s:integer;beginn:=0;writeln('vvedite chislo');readln(s);for i := 1 to s don:=n+i;writeln(n);readln;end.