Question

Дано z и x. Найти y. Известно, что y = x*z/x. Например: если пишем 1 и 2 , то программа выводит 1.
Напишите программму пожалуйста

Answer 1

program test;

var z, x: Integer;

y: real;

begin

Readln(x, z);

y := x * z / x;

Writeln(y);

end.