какие размищения нового образу исполнителя вы знаете

Program figna ; {это название}
var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые}
begin {начало}
 writeln('введите три числа'); {запрос чисел}
readln(a,b,c); {ввод чисел}
d:=a*b*c; {умножаем числа и присваиваем d их значение} 
if (d<50) then {если произведение чисел меньше 50 то}
 a:=a*10; {первое число умножаем на десять}
 b:=b*10; {второе число умножаем на десять}
 c:=c*10; {третье число умножаем на десять}
writeln(a); {выводим первое}
writeln(b); {выводим второе}
writeln(c); {выводим третье}
else {иначе}
writeln(d); {выводим произведение}
end. {конец}
P.S. этот символ { } паскаль не читает и означает он коментарий 

Попробуем сделать сортировку букв латинского алфавита.

const
  n = 20;
var
  a: array[1..n] of char;
  i, j: integer;
  t: char;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Chr(random(26)+Ord('A'));
    Write(a[i],' ')
  end;
  Writeln;
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i],' ');
  Writeln
end.

Тестовое решение:
Исходный массив
G Z L H X A R E C F G X O T C L N U D L
Отсортированный по возрастанию массив
A C C D E F G G H L L L N O R T U X X Z