Дай Составьте программу для штриховки квадратного поля А

1.Графика – бейнелеу өнерінің бір жанры. Кескіндеме жанрында түс пен бояу негізгі рөл атқарса, графикада (гр. graphein гр. grapho– жазамын) сызықтар, штрихтар, ашық және қара (қоңыр) дақтардың арақатынасы шешуші рөл атқарады, сондай-ақ заттардың ең негізгі белгілері таңдап алынады.

2.1)гылыми графика

2)конструкторлык графика

3)искерлик графика

4)суреттеу графикасы

5)жарнамалык графика

3.Әдетте, бұл жалғыз көп түсті нүкте. Бейнесызбалық объектілерді бейнелеу үшін қолданылады. Мысалы, дисплей бетіндегі әрбір әріп бірнеше нүктеден тұрады. Осы нүктелер бейне элементтері болып табылады. Әрбір құрастырылатын қатар осындай бірнеше пиксельден тұрады. Пиксельдің көрсетілуі немесе көрсетілмеуі бейнежадтың тиісті разрядының қалып-күйіне байланысты.

4.бул сурак суретте көрсетілген.

//PascalABC.NET 3.2 сборка 1318

Var
  s1,s2,c:string;
  i:integer;
begin
write('Type s1:');
readln(s1);
write('Type s2:');
readln(s2);
if length(s1)>length(s2) then
  begin
    for i:=1 to length(s1) do
      if (s1[i]>='0') and (s1[i]<='9') then write(s1[i]);
    writeln;
    for i:=1 to length(s2) do
      if ord(s2[i])>70 then write(s2[i]);
  end
else
  begin
    for i:=1 to length(s1) do
      if ord(s1[i])>70 then write(s1[i]);
    writeln;
    for i:=1 to length(s2) do
      if (s2[i]>='0') and (s2[i]<='9') then write(s2[i]);
  end;
end.

Пример ввода:
Type s1:Mi Zu
Type s2:MeL10N
Пример вывода:
MiZu
10