{
  Шапка программы пишется всегда
}
program proba{имя программы};
Uses {Подключение модулей}
  crt;{модуль работы с текстом}
const {Константы}
  Max=10;
type {Типы данных}
  tVector=array[1..Max] of real;
  tMasiv=array[1..Max,1..Max] of real;
var  
  p1,p2:integer;
  p3,p4:real;
  p5,p6:tVector;
  p7,p8:tMasiv;
{
  Место для кода функций и процедур
}
procedure AB1(a,b:integer;a1,b1:real;var c:integer);{Процедура}
  var
   dd:integer;{Тут возможно объявлять переменные, которые будут использоваться только в процедурах}
  begin
   c:=a+b;
  end;
function AB2(a,b:integer;a1,b1:real;var c:integer):integer;{Процедура}
  var
   dd:integer;{Тут возможно объявлять переменные, которые будут использоваться только в процедурах}  
  begin
   AB2:=a+b;{Отличие функции от процедуры в том, что функция возвращает значение через имя}
  end;
{
  Текст главной программы
}
begin
  ClrScr;{Очистка кансоли в лабораторках обязательна}
  { =========== Текст основной программы =========== }
  AB1(1,2,3.4,5.6,p1);
  p2:=AB2(1,2,3.4,5.6,p1);
  write('Вывод текста в одну строку  ');
  writeln('Вывод текста с переходом на другую строку');
  read(p1,p2);{Ввод переменных}
  write('p1,p2= ',p1,p2);{Вывод значения переменных с коментариями}

  {
   Знать эти два сочетания клавиш обязательно !
   Ctrl+F9    Компиляция программы
   Alt+F5    Просмотр результата. После просмотра, повторить нажатие клавиш
  }
end.

program Proba1;    {Заголовок програми}
uses   {Пiдключення модулю}
crt;  {Управлiння екраном}
Begin
clrscr;
WriteLn('Лабораторна робота ТП-1');
WriteLn('Студента групи ПЗ-08-1');
WriteLn('Слащова Антона Iгоровича');
End.

PROGRAM Proba2;
USES
crt;
VAR
a,b,c:real;
BEGIN
clrscr;
WriteLn('Введiть значення a i b');
Read(a,b);
clrscr;
c:=a+b;
WriteLn(' a=',a:7:3,' b=',b:7:3,' Сума c=',c:7:3);
END.

program Proba3;    {Заголовок програми}
uses   {Пiдключення модулю}
crt;  {Управлiння екраном}
Begin
clrscr;
WriteLn('Лабораторна робота ТП-1-2');
WriteLn('Студента групи ПЗ-08-1');
WriteLn('Слащова Антона Iгоровича');
End.