Думаю, тебе нужно это:
Program pr3;
var w, w1, z: real;
begin
writeln('Введите w');
Readln(w);
writeln('Введите w1');
Readln(w1);
z:=w/w1;
Writeln(z);
end.
Думаю, тебе нужно это:
Program pr3;
var w, w1, z: real;
begin
writeln('Введите w');
Readln(w);
writeln('Введите w1');
Readln(w1);
z:=w/w1;
Writeln(z);
end.