Як надати або зміни значення змінної у Scratch 2? Підручник Інформатика 7 клас 2020 рік
Ривкінд Й. Я., Лисенко Т. І.

Pascal:
program  Project;
var
  a,b,c: integer;
  min, max: integer;
begin
  Write('a=');
  Readln(a);
  Write('b=');
  Readln(b);
  Write('c=');
  Readln(c);
  if (a>b) and (a>c) then
  begin
     max:=a;
     if b>c then
     begin       
       a:=c;
       c:=max;
     end
     else
     begin
       a:=b;
       b:=max;
     end
  end else
  begin
     if (b>a) and (b>c) then
      begin
         max:=b;
         if a>c then
         begin       
           b:=c;
           c:=max;
         end
         else
         begin
           b:=a;
           a:=max;
         end
      end else
      begin
        max:=c;
         if a>b then
         begin       
           c:=b;
           b:=max;
         end
         else
         begin
           c:=a;
           a:=max;
         end
      end
  end;
  Write('a=',a);
  Write('b=',b);
  Write('c=',c)
end.

Современный компьютер может обрабатывать числовую, текстовую, графическую, звуковую и видео информацию. Все эти виды информации в компьютере представлены в двоичном коде, т. е. используется алфавит мощностью два (всего два символа 0 и 1). Связано это с тем, что удобно представлять информацию в виде последовательности электрических импульсов: импульс отсутствует (0), импульс есть (1). Такое кодирование принято называть двоичным, а сами логические последовательности нулей и единиц - машинным языком.