Составить блок-схему и программу, которая большее из двух произвольных чисел возводит в квадрат, а меньшее увеличивает на единицу.

Program z1; var a,b,c,d: integer; begin writeln('введите число a и число b'); readln(a,b); c: =sqr(max(a,b)); d: =min(a,b)+1; writeln('первое число ',c,', второе число ',d); end.исправил

var

  age : integer;

begin

  read (age);

  if (age > 50) or (age < 17) then writeln ('no') else writeln ('yes');

end.

 

var

  a, b, c, count : integer;

begin

  read (a, b, c);

  count : = 3 - a mod 2 - b mod 2 - c mod 2;

  writeln (count);

end.

 

var

  k : integer;

begin

  read (k);

  if (k mod 1000 div 100 = k mod 100 div 10) and (k div 1000 = k mod 10) then writeln ('yes')       else writeln ('no');

end.

var

  a : array of integer;

  n, i, last : integer;

begin

  read (n);

  setlength (a, n);

  for i : = 0 to n - 1 do

    read (a[i]);

  last : = 0;

  for i : = 0 to n - 1 do

    if a[i] < > 0 then

    begin

      a[last] : = a[i];

      inc (last);

    end;

  setlength (a, last);

  for i : = 0 to last - 1 do

    write (a[i], ' ');

end.

 

суть такова. имеем динамический массив. считали массив, так как динамический, то от нуля все. установили последнюю свободную ячейку 0. идем по массиву и ищем ненулевое значение. как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. при этом наши данные не затираются. после окончания всех операций в last лежит длина массива.статитечкий массив. 

var

  a : array [1..100] of integer;

  n, i, last : integer;

begin

  read (n);

  for i : = 1 to n do

    read (a[i]);

  last : = 1;

  for i : = 1 to n do

    if a[i] < > 0 then

    begin

      a[last] : = a[i];

      inc (last);

    end;

  dec (last);

  for i : = 1 to last do

    write (a[i], ' ');

end.