Написать на языке паскаль программу вычисления у по формуле: y=(1-x^2 + 5x^4)^4 где х целое число

program calc; var x,y: real; beginwrite('первое число: '); readln (x); y : = (1-x*2+5*x*4)*2; //   y : = pow( (1-x*x+5*pow(x,4) ) ,2); или так если там степениwrite ('результат: ',y); end.

#include <iostream>

#include<stdlib.h>

/*

В прямоугольной целочисельной матрице упорядочить элементы, которые размещены на главной диагонале по убыванию

*/

using namespace std;

int main() {

setlocale(LC_ALL,"rus");

cout << "Masiv do sortirovki "<< endl << endl;

int mas[5][5];

for(int i=0; i<5; i++){

for(int j=0; j<5; j++){

mas[i][j]=-10+rand()%90;

cout<<mas[i][j]<<" ";

}

cout << endl;

}

cout << endl << endl;

cout << "Masiv posle sortirovki "<< endl << endl;

/* сортировку тут нужно провести */

for(int i=0; i<5; i++){

for(int j=0; j<5; j++){

cout<<mas[i][j]<<" ";

}

cout << endl;

}

cout << endl << endl;

return 0;

сорри если не правильно.(

Программа определяет делится ли первое число на второе нацело​ и выводит частное:

var

 a, x, y: integer;

 b: real;

begin

 writeln('Введите два числа');

 read(x, y);

 a := x mod y;;

 b := x / y;

 if a = 0

   then writeln('Первое число делится на второе, частное: ', b)

 else writeln('Первое число не делится на второе');

end.

Программа определяет делится ли первое число на второе нацело и не выводит частное:

var

 a, x, y: integer;

begin

 writeln('Введите два числа');

 read(x, y);

 a := x mod y;

 if a = 0

   then writeln('Первое число делится на второе')

 else writeln('Первое число не делится на второе');

end.