Практическое задание. Указать, по какому запросу будут выведены Планеты, чья масса не превосходит 100´1024кг и не меньше 2´1024кг и имеющие спутники.
a. Масса=>100´1024 OR Масса<=2´1024 AND Спутник>0.
b. Масса=>100´1024 AND Масса<=2´1024 AND Спутник>1.
c. Масса<=100´1024 AND Масса>=2´1024 AND Спутник>=1.
d. - Масса=>100´1024 OR Масса<=2´1024 OR Спутник>1.

1)
program task1;
var x,y,xq,yq,sum,pro,cha,raz:integer;
begin
write('Введите числа:');
readln(x,y);
xq:=sqr(x);
yq:=sqr(y);
sum:=xq+yq;
raz:=xq-yq;
pro:=xq*yq;
cha:=xq/yq;
write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);
end.
2)
program task2;
var a,r,rr,h,s:real;
begin
  write('Введите длину стороны треугольника: ');
  readln(a);
  r := sqrt(3) * a / 6;
  rr := 2 * r;
  h := 3 * r;
  s := a * h / 2;
  Writeln('Радиус вписанной окружности ', r::2);
  Writeln('Радиус описанной окружности ', rr::2);
  Writeln('Высота треугольника ', h::2);
  Writeln('Площадь треугольника ', s::2);
end.

1. Вариант современного решения
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Число четных цифр равно ',
    abs(ReadInteger('n=')).ToString.Where(c->c.ToDigit.IsEven).Count)
end.

Пример
n= 363754345
Число четных цифр равно 3

2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.

program TP70;
uses Crt;
var
  n:longint;
  k,d:byte;
begin
  ClrScr;
  Write('n= '); Read(n);
  n:=abs(n);
  k:=0;
  while n>0 do begin
    d:=n mod 10;
    if d mod 2=0 then Inc(k);
    n:=n div 10
    end;
  Writeln('Число четных цифр равно ',k);
  ReadKey;
end.