Процесс выполнения операторов присваивания:

b:=7;m:=113;y:=b∗m

При выполнении оператора b:=7 в ячейку оперативной памяти компьютера с именем b заносится значение
; при выполнении оператора m:=113 в ячейку оперативной памяти компьютера с именем m заносится значение
. При выполнении оператора y:=b∗m значения ячеек оперативной памяти с именами b и m переносятся в процессор, где над ними выполняется операция умножения. Полученный результат заносится в ячейку оперативной памяти с именем
.

var r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.

первым кому удалось расшифровать египетские иероглифы, был французкий ученый жан-франсуа шампольон (1790-1832). он составил полный список иероглифов и их гречиских эквивалентов создав тем самым основу для перевода всех египетских текстов.

var a: integer; beginreadln(a); write (a div 10); end.

program num1; uses crt; var a : array [1..10] of integer; i : integer; begin clrscr; for i: =1 to 10 do begin write('a[',i,']='); readln(a[i]) end; for i: =1 to 10 do if a[i]< 0 then a[i]: =abs(a[i]); writeln('********************************'); for i: =1 to 10 do writeln('a[',i,']=',a[i]); end.