Широкий круг вопросов

Хотелось бы узнать. Program P_1; Var x,y,z: integer; begin x:=5; y:=5; z:=x+y; writeln(z); end. изменить программу так, чтобы она вычесляла произведение чисел x и y

Var x,y,z: integer
       Begin
        x:=10;     y:= 4 ;     z:= 4;
      s:= (x*z)/y
      writeln( 's', s);
      end.

-------
Просто пишешь всё то же самое, но заменяет сумму умножением:
Program P_1;
Var x,y,z: integer;
begin
x:=5;
y:=5;
z:=x*y;
writeln(z);
end.