Var a,b,c,U,R:longint;beginread (U,R);write(U/R) ;end.
Вот решение задачи, код подробно прокоментирован, если есть какие-то вопросы - милости прошу в коментарии.Файл с кодом программы прикреплен к ответу.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" тут и в моем профиле.
Var i,s:integer;
<span>begin </span><span> </span>
<span> s:=0; </span>
<span>for i:=1 to 10 do s:=s+i; </span>
writeln('Сумма:',s);
<span>end.</span>