Помгите создать программу в чертежнике звезда класс информатика
Нарисовать звезду ​

Var a: string;
    i: integer;
begin
     readln(a);
     for i := 1 to length(a) do
         if (a[i] in ['0'..'9']) then write(a[i]);
end.

2) Тут лучше: на входе строка, а берётся часть между 1 и 2 пробелами, ответ уже есть под задачей х)
var a, b: string;
    i: integer;
    w: boolean;
begin
     readln(a);
     for i := 1 to length(a) do
     begin
         if ((a[i] = ' ')) then
            if (length(b) = 0) then w := true else w:=false;
         if (w) then b := b + a[i];
     end;
     writeln(b);
end.

3)
var s: string;
    i: integer;
begin
     readln(s);
     for i := 1 to length(s) do
     if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y']
        then write(s[i]);
end.

№1.
Информация – это сведения об окружающем мире, которые повышают уровень осведомленности человека.
Информатика - наука о методах накопления, обработки и передачи информации
Информационные технологии - процесс, использующий совокупность средств и методов сбора, обработки и передачи данных (первичной информации)  для получения информации нового качества о состоянии объекта, процесса или явления (информационного продукта).
Объект - любая часть окружающей дейст-ти
№2.
газета - предмет, радуга - явление, прогулка - процесс, стадион - предмет,чтение - процесс,мираж - явление
№3. 
а) пенал
б) ярлыки
в) диски
г) растения
д) уравнения
е) страны
ж) алгоритм
№4
а) страны мира
б) страны западного полушария
в) страны северной америки
г) самые длинные реки
д) реки России
е) реки Европы
ж) уст-ва ввода, вывода
з) уст-ва ввода
и) растения
к) плодовые растения