Составьте программу нахождения значение функции z = y*x. Нужна программа в паскаль нужно

program funct;

var

 y, x : integer;

Begin

 write('y = ');

 readln(y);

 write('x = ');

 readln(x);

 writeln('z=y*x');

 writeln('z=', y, '*', x);

 writeln('z=', y*x);

end.

Объяснение:

PascalABC.NET

Пример работы:

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.