Программирование линейных алгаритмов решите задачи:Дано число А число В в 2 раза больше вычеслите сумму числа целые. Определите частное целых чисе

программирование линейных алгаритмов решите  задачи:
1.Дано число А число В в 2 раза больше вычеслите сумму числа целые.
2.Определите частное целых чисел Х и У.
3.Имеется участок прямоугольной фотмы со сторонами А и В определите Р участка.
Делайти так чтоб там было:
Program 
var
Begin
WriteLn
ReadLn
End.

  • 1.  Program first; 
         Uses Crt; 
         var a, b : integer;  
          begin           
          Write('Введите a');           ReadLn(a);                      b:=2*a;                                Write('сумма a и b',a+b);  
        end.

    2. Program second; 
        Uses Crt; 
        var a, b : integer;  
         begin           
         Write('Введите a ');           ReadLn(a);
          Write('Введите b ');           ReadLn(b);                     
          Writeln('Частное a и b=',a div b);
       end.

    3. Program thrid; Uses Crt; var a, b : integer;  begin           Write('Введите a ');           ReadLn(a);
               Write('Введите b ');           ReadLn(b);                     Writeln('Периметр=',(a+b)*2);
     end.