Создайте математическую модель периметра треугольника​

Все зависит от того, что Вы хотите делать. Язык программирования - это не самоцель, а всего лишь средство для того, чтобы выполнить какую-то работу. Например, если Вы хотите заняться веб-дизайном, то Вам неплохо бы помимо python знать java, php и html, а также не помешает знание SQL, если Вы будете составлять запросы к базам данных.Если же Вы хотите программировать чипы на низком уровне, то вам нужно изучение программирования в машинных кодах и assembler, для научного программирования пригодятся, например, Matlab, fortran, c,c++,c#. В общем, для каждой области деятельности есть свой набор инструментов и что именно изучать зависит от того, для чего Вы хотите свои навыки применять.

Это реализовано с цикла for:

Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла while:

Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
i:=i+1;    
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла repeat:

Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat    
Begin    
i:=i+1;    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
until i=2;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.