Помагите надо решить задание по информатике!

Выполните задания

Задание № 1

5 + 5 div 5

5 div 5 div 5

123 div 10

123 mod 10

123 div 10*10

123 * 10 div 10

Задание № 2

Пример:

Вычислите периметр треугольника. Длины сторон задаются с клавиатуры.

Var a, b ,c, P: integer;

Begin

Writeln (‘введите длины сторон треугольника’);

Readln( a, b, c);

P:= a + b+ c;

Writeln (‘Периметр треугольника равен’, P);

End.

Задача № 1

Вычислите периметр треугольника. Длины сторон задаются пользователем с клавиатуры.

Задача № 2

Найдите сумму, разность и произведение двух чисел, вводимых с клавиатуры.

#include <iostream>
using namespace std;
int main()
{
int n,max;
bool a=false;
cout<<"enter kol-vo numbers:"<<endl;
cin>>n;
if(n<=1000)
{
int arr[n];
cout<< "enter 1 chislo"<<endl;
cin>>arr[0];
max=arr[0];
if(arr[0] % 10==3 && arr[0]<30000)
{
a=true;
for (int i=1;i<n;i++)
{
cout<<"enter "<<(i+1)<<" chislo"<<endl,
cin>>arr[i];
if(arr[i]>30000) {goto b;}
}
for (int i = 0; i < n; ++i) {
if (arr[i] > max && arr[i] % 10==3)
{
max = arr[i];
}
}
}
}
b:
if(a){ cout<<" max chislo okanch na 3: "<< max<<endl; }
return 0;
}

1)
Program n1;
var a,b: integer;
begin
write('введите а и b: ');
readln(a,b);
writeln('сумма: ',a+b);
writeln('разность: ',a-b);
end.
2)
Program n2;
var a: integer;
begin
writeln('введите а: ');
readln(a);
writeln('первая цифра(десятки): ',a div 10);
end.
3)
Program n3;
var a: integer;
begin
write('введите число: ');
readln(a);
writeln('сумма цифр= ',(a mod 10)+(a div 10));
end.
4)
Program n4;
var a: integer;
begin
write('введите число: ');
readln(a);
writeln('сумма цифр= ',round((a mod 10)+((a mod 100)-(a mod 10))/10+(a div 100)));
end.