Для каждой программы напишете, что она выведет. 1. a = 7
b = 3
while(a>4):
a = a –3
b= b + a
print(b)

2. a = 0
b = 0
while(a<3):
b =a + b
a = a + 1
print(b)

3. a = 3
while(a<15):
a = a *2
print(a)

4. a = 6
b = 3
while(a!=4):
a = a - 1
b = b + a
print(b)

5. for i in range(5, 9, 2):
print(i)

6. for i in range(2,7):
print(i)

7. for i in range(4):
print(i)

​

Так как мы не знаем длину числа и нам надо только первые две цифры, то можно поступить так:
1. Переводим число в строку и выделяем две подстроки символ длиной в 1 с начала строки, которые переводим обратно в целое.
2.  А дальше стандартно с целочисленного деления выясняем четность первой цифры числа.
 
var a,a1,a2:integer;
s:string
  begin
  readln(a);
  //преобразуем число в строку и найдем первые 2 цифры
  str(a,s);
  a1:=strtoint(copy(s,1,1));
  a2:=strtoint(copy(s,2,1));
  writeln('Первая цифра числа: ',a1);
  writeln('Вторая цифра числа: ',a2);
  //Проверим первую цифру на четность
  if a1 mod 2 =0 then writeln(a1,' - четная')
    else writeln(a1,' - нечетная')
end.

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
function Euclid(a,b:integer):integer;
begin
  while a<>b do if a>b then a-=b else b-=a;
  Result:=a
end;

begin
  var a,b,c,d:integer;
  Write('Числитель и знаменатель первой дроби: ');
  Read(a,b);
  Write('Числитель и знаменатель второй дроби: ');
  Read(c,d);
  var zn:=b*d;
  var ch:=a*d-c*b;
  var sgn:=Sign(ch); ch:=Abs(ch);
  var gcd:=Euclid(ch,zn);
  Write('Результат вычитания: ');
  if sgn=-1 then Write('-');
  Writeln(ch div gcd,'/',zn div gcd)
end.

Тестовое решение:
Числитель и знаменатель первой дроби: 7 12
Числитель и знаменатель второй дроби: 3 4
Результат вычитания: -1/6