1. Программа интерфейсі деген не? 2. Lazarus программасының терезесі қандай бөліктерден тұрады?
3. «Объекттер инспекторы» терезесінің қызметі қандай?
4. Жаңа жобаның пішінін жасау терезесі қалай аталады?
5. Жасалған жоба қандай кеңеймемен сақталады?
6. Жаңа жобаны қалай іске қосамыз?
7. Lazarus-та жаңа жоба дайындау кезеңдерін түсіндірдер.
8. Жаңа жоба дайындау алгоритімін сипаттап беріңдер.​

Const
    n = 30;

type
    array100 = array [1..100] of integer;

var
    a: array100;
    i, t: integer;
    f: boolean;

procedure PrintArray(var a: array100);
var
    i: integer;
begin
    for i := 1 to n do
        write(a[i]:3, ' ');
    writeln;
end;

begin
    randomize;
    for i := 1 to n do
        a[i] := random(99) - 50;
       
    PrintArray(a);
   
    repeat
        f := true;
        for i := 1 to n - 1 do
            if (a[i] < 0) and (a[i + 1] >= 0) then begin
                f := false;
                t := a[i];
                a[i] := a[i + 1];
                a[i + 1] := t;
            end;
    until f;
    PrintArray(a);
   
    readln;
end.

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.