записать программу нахождения площади и периметра прямоугольника использовать Паскаль ABC

program название;

var a, b, s, p:integer;

begin

writeln ('Введите стороны прямоугольника:');

readln (a, b);

s:=a*b;

p:=2*(a+b);

writeln ('Площадь=', s);

writeln ('Периметр=', p);

end.

#Python

#ответ B:

n = 1

num = []

while n != 0:

   n = int(input("Введите число : "))

   if n != 0:

       num.append(n)

num3 = []

for n in num:

   if int(n) % 3 == 0:

       num3.append(n)

print("Макс :", max(num3), " Мин :", min(num3))

#ответ C:

n = 1

num = []

while n != 0:

   n = int(input("Введите число : "))

   if n != 0 and len(str(n)) == 2:

       num.append(n)

num6 = []

for n in num:

   if int(n) % 10 == 6:

       num6.append(n)

if  num6 == True:

   print("Макс : ", max(num6))

else:

   print("Нет такого число!")

Объяснение:

1)
#include<iostream>
#include<cmath>  
void main() {    
char ch1, ch2;    
int vol1, vol2;          
std::cin >> ch1 >> vol1;        
std::cin >> ch2 >> vol2;                            
if abs(ch1 - ch2) <= 2) && (abs(vol1 - vol2) <= 2)) && ((ch1 != ch2) && (vol1 != vol2))) && !((abs(ch1 - ch2)==1) && (abs(vol1-vol2))==1))             std::cout << "Possible";                    
else            
std::cout << "Impossible";        
}
3)
#include<iostream> 
using namespace std; 
void main() {    
int n,m;
cin >> n,m;
cout<<n;
for(int i=n;i<=m;i++)
cout<<i+2;
}
4)

#include <iostream>
using namespace std; void main(){
int mass[2][4]   //размерность своего массива вписывай.
{
{ 1, 2, 3, 4 },  //вписывай свои числа.
{ 1, 2, 3, 4 }  
};

for (int i=0 ; i<2;++i)
{
for (int j=0 ; j<4;++j)
{
if(mass[i][j]<0)
 cout<<mass[i][j];
}
}
system("pause");
}