Дана последовательность целых чисел, значения которых не превышают 1000 Необходимо посчитать сумму чисел кратных 3 и
оканчивающихся на 5 Программа на вход получает количество
чисел, а затем сами числа.

Uses graphabc;
begin
  window.Init(0, 0, 600, 600, clwhite);
  window.IsFixedSize := true;
  pen.Width := 5;
  line(50, 50, 500, 50, clred);
  line(50, 50, 50, 500, clblue);
  line(500, 50, 500, 500, clgreen);
  line(50, 500, 500, 500, clyellow);
  SetFontSize(30);
  DrawTextCentered(50, 0, 500, 150, 'Имя');
  DrawTextCentered(50, 130, 500, 200, 'Фамилия');
  DrawTextCentered(50, 200, 500, 330, 'Отчество');
  DrawTextCentered(50, 330, 500, 400, 'Год рождения');    DrawTextCentered(50, 400, 500, 500, 'Группа');
end.

                                           Компьютеры вокруг нас
Компьюторы везде! Она почти у каждого человека дома! Они появились где-то в 80-х! И также они выполняют и хорошую роботу! К примеру когда надо сделать Домашнее задание,можно зайти в интернет и посмотреть,Ну если не понятно,И так-же если скучно,можно зайти в интернет и посмотреть видео. Они очень классные. Но бывают из-за них проблемы,пожары,и также компьюторы портят здоровье! Будь осторожен! Компьютеры вокруг нас!

Вот я придумал сам (Ошибки исправишь)