Мышка - <span>устройство, позволяющее пользователю управлять положением курсора, указывать и выбирать объекты, отображаемые на экране.</span>
Program abc;
var a:integer;
BEGIN
writeln ('2+1*3=?');
read (a);
if a=5 then
writeln ('Ты молодец')
else ('Не правильно, попробуй еще раз');
END.
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.