Сравните два выделения областей. в каких случаях применяется каждый из них

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

var x,y,a,b: real; begin  read(a,b);   read(x,y);   if y=a*x+b then      writeln('точка принадлежит прямой')  else  writeln('точка не принадлежит прямой'); end.

l*pi*((r+a)^2- (r)^2)*p

p - плотность

var a,s: integer;

begin

  read(a);

  repeat

      s: =s+a mod 10;

      a: =a div 10

  until a=10;

  if (s< 100) and (s> 9) then write('yes')

  else write('no');

end.