Подурок 1 
 Математические операции  Итак, в первом уроке мы научились выводить текст на экран, это хоть и не большой прогресс, но это уже что-то. 
 Как нам всем известно, программирование это не просто вывод информации. Основная часть программирования это математика, чем сейчас мы и займемся. 
 Сейчас мы будем прибавлять, вычитать, умножать и делить. 
 Нам нужно сложить два числа. Для этого нам нужны две переменные(которые и будут нашими двумя числами) и еще одна переменая(это будет наш результат) 
 К примеру Z=X+Y 
 
Code
program Project2; 
 uses 
    SysUtils; 
     var 
     z,a,b:integer; 
 begin 
     
 Readln(a,b); 
   z:=a+b; 
   writeln(z); 
   readln 
 end.
 a,b:integer; 
 a,b – наши два числа 
 z – наш результат чему равен А+В (функция Z=X+Y) 
 Readln(a,b); 
 Вводим наши два числа А и В 
 z:=a+b; 
 наша функция которая считает А+В 
 writeln(z); 
 Выводит на экран функцию Z которую мы посчитали перед этим. 
 Теперь попробуйте сами сделать вычитание, умножение и деление 
 ВНИМАНИЕ когда будете делить, присвойте переменной Z тип Real; 
 
Code
Var 
 a,b:integer; 
 z:real;
 Integer -- переменные такого типа могут содержать только целые числа (к примеру 1,2,4,5,6,7) 
 Real -- переменные такого типа могут содержать дробные (к примеру 1,23 5,77 3,5 ) 
 Теперь небольшие примеры для самостоятельного изучения(попробуйте сделать сами); 
 Z=A+B; 
 Z=A+B+C; 
 Z=A+C/2+B 
 Z=A-C/B+1 
 Как нам всем известно, кроме этих простых операций существуют еще: возведение в квадрат, нахождение квадратного корня, вычитание синуса, косинуса. 
 Sqr(x) – это функция (Sqr) возводит переменную х в квадрат 
 
Code
program Project2; 
 uses 
    SysUtils; 
       
 var 
     x:integer; 
     z:Real; 
 begin 
   Readln(x); 
   z:=sqr(x); 
   writeln(z); 
   readln 
 end. 
 
 Sqrt(x) -- это функция (Sqrt) вычитает из переменной х квадратный корень  
Code
program Project2; 
 uses 
    SysUtils; 
       
 var 
     x:integer; 
     z:Real; 
 begin 
   Readln(x); 
   z:=sqrt(x); 
   writeln(z); 
   readln 
 end. 
 
 Sin(x) 
 -- вычитание синуса и косинуса из переменной х 
 Cos(x)  
Code
program Project2; 
 uses 
    SysUtils; 
       
 var 
     x:integer; 
     z:Real; 
 begin 
   Readln(x); 
   z:=sin(x); 
   writeln(z); 
   readln 
 end.
 Попробуйте вычистлить самостоятельно 
 X+SIN(X)/2, 
 SIN(X)+COS(X)/2+X, 
 Sqr(x)+Sin(x), 
 Sqrt(x)+Sqr(x)+Sin(x/2)/Cos(x)