Найдите ошибки
Program pr3;
var w, w1: integer;
Readln (w);
z:w/w1;
Writeln (w1);
End.​

Думаю, тебе нужно это:

Program pr3;

var w, w1, z: real;

begin

writeln('Введите w');

Readln(w);

writeln('Введите w1');

Readln(w1);

z:=w/w1;

Writeln(z);

end.

Чтобы закреплять, добавлять или удалять фрагменты, используйте значок редактирования.Чтобы закрепить фрагмент, нажмите на него и удерживайте. Незакрепленные объекты будут удалены через час.Нажмите на фрагмент, чтобы вставить его в текстовое поле.Знакомьтесь с клавиатурой Gboard! Здесь будет сохраняться текст, который вы копируете.Комикс салу үшін іс-әрекеттердің қандай ретін таңдайсың?

Көңіл-күйін көрсетемін

Жұмысыма тақырып беремін

Материалдар мен құралдарды таңдаймын

Менің комиксімнің сюжетін ашатын кейіпкерлердің ым-ишарасы мен көңіл-күйін ойластырамын

Комиксте түс рөл атқарады

Комикс сюжеті туралы ойлаймын

Комикс композициясы туралы ойланамын

«Бұлттар» қосып, мәтінін ойластырамын

Кішігірім нобай орындаймын