Ввести число оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять! if x> 8 then y: =x/4 else y: =x*5

var x,y: real;

begin

  readln(x);

  if x> 8 then y: =x/4 else y: =x*5;

  writeln(y);

end.

Язык: pascal var     a,b: integer; begin     read(a,b);     write(a+b); end. язык c++ #include < iostream> using namespace std; int main() {      int a,b;       cin > > a;       cin > > b;       cout < < a+b;       return 0; }язык javascriptvar a = number(; var b = number(; alert(a+b); // или console.log(a+b); илиalert( number( + number( ); язык pythona = int(b = int(print(a+b)илиprint( int( + int( ) ввод для любой программы выше: 2 5 вывод: 7

Program podschet; var  i, j ,ans: integer;   a: array [1..100,1..100] of integer; begin  writeln('введите размерность матрицы');   readln(n);   writeln('введите матрицу ', n, 'х', n);   for i : = 1 to n do    for j : = 1 to n do      read(a[i, j]);   for i : = 1 to n do    for j : = 1 to n do      if (j = i + 1) then        ans : = ans + a[i, j];   writeln('cумма элементов над главной диагональю = 'ans); end.