Результатом выполнения фрагмента алгоритма
…
a:=7;
b:=8;
k:=5+a;
if a>b then k:=k*3 else k:=k-3;
writeln (k);
…
будет следующее значение k:
7;
8;
9;
10;
Верного ответа нет

Идея следующая:
1.вводим год, месяц, день
2. проверяем, что год >=1900 и меньше 9999 при месяце меньшем 12 и год >=1900 и меньше 9998 при месяце равном 12. Если введенный год не удовлетворяет условию, то предлагаем ввести год заново до тех пор, пока условие не будет выполнено. Если введенный год удовлетворяет условию, то продолжаем проверку.
3. проверяем, что месяц от 1 до 12. При этом в переменную srav запомним максимальное число дней в введенном месяце с учётом високосного года. Если введенный месяц не удовлетворяет заданному условию, то предлагаем ввести месяц заново до тех пор, пока условие не будет выполнено. Если условие выполнено идём дальше.
4. проверяем, что день не превышает максимального числа дней (srav) в введенном месяце.Если день не удовлетворяет заданному условию, то предлагаем ввести день заново до тех пор, пока введенное значение не будет удовлетворять условию. Если условие выполнено, то продолжаем.
5. Выведем на экран введенную дату.
6. Вычисляем и выводим на экран следующий день за введенным, не забывая, что:
- если введен день равный последнему дню месяца, то следующий день - это 1 число следующего месяца.
- если введен последний день последнего месяца, то следующий день -это 1 число 1 месяца следующего года.

{1 задача}
var
  Form1: TForm1;
  s1,s2:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   s1:='stroka1';
   s2:='stroka2';
   Label1.Caption:=s1;
   Label2.Caption:=s2;

end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
   s:=s2;
   s2:=s1;
   s1:=s;
   Label1.Caption:=s1;
   Label2.Caption:=s2
end;

end.

{2 задача}
var
  Form1: TForm1;
  n:integer;
  a: array[1..10] of integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 randomize;
 Label1.Caption:='';
 Label2.Caption:='';
 n:=10;
 for i:=1 to N do
 a[i]:=random(100);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=1 to N do
 label1.Caption:= label1.Caption + ' '+inttostr(a[i]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 for i:=1 to N do
 if a[i]<strtoint(edit1.Text) then
 label2.Caption:= label2.Caption + ' '+inttostr(a[i]);

end;

end.