Var a,b:integer;
begin;
readln(a);
readln(b);
if a>b then write('Первое');
if a<b then write('Второе');
if a=b then write('=');
<span>end.</span>
Я так понимаю из задания вы это хотели.
В следующий раз самостоятельно хоть попытайтесь сделать,и приложите ваше решение к вопросу.
#include<iostream>;
using namespace std;
int main()
{
int n;
float height, width,square=0;
cout << "pls enter count rectangle" << endl;
while (true) //Бесконе4ный цикл
{
cin >> n;
if (n <= 10 && n > 0)//как нашли-выходим из цикла
break;
}
cout << "pls enter height" << endl;
cin >> height;
cout << "pls enter width" << endl;
cin >> width;
cout << endl;
for (int i = 0; i < n; i++)
{
square = square + (height * width);
}
cout <<"your answer : "<< square << endl;
system("pause");
return 0;
}
// проверялось в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
x, y: real;
begin
x := 1;
y := x * x * x - 3 * exp(x) + 8;
Println('При x =', x);
Println('y = x³ - 3eˣ + 8 =', y);
end.
Примечание: в строке, выводящей на экран значение игрек, использованы символы Юникода.
Если они не поддерживаются в вашей версии Паскаля, можно оставить в строке только Println('y =', y);