При нажатии мышкой на внутреннею область квадрата происходит ошибка. Из-за чего она возникает:"Program8.pas(6) : Ошибка времени выполнения: Поток не выполняется; его нельзя приостановить."?

Как можно переделать программу?
Программа(PascalABC.NET):

uses graphabc;
var
a: real;

procedure md(x, y, z: integer);
begin
if (x > 100) and (x < 200) and (y > 100) and (y < 200) then readln(a);
end;

begin
onmousedown := md;
rectangle(100, 100, 200, 200);
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.