Надо ввести два числа и программа должна показать делиться ли на друг друга или нет

Pascal
Program determiner;
Var a, b, c: real;
Begin
Readln(a, b);
C:=0;
If (a > b) then
Begin
If (a mod b = c) then
Writeln('Yes')
Else writeln('No')
End
Else begin
If (b mod a = c) then
Writeln('Yes')
Else writeln('No);
End;
End.

Если взглянуть на мировую историю, то становится понятным, что человечество постоянно развивается, улучшая технологии, обогащая свой опыт и знания. И то, что ещё недавно казалось чем-то невероятным, уже через пару десятков лет воспринимается как нечто вполне обыденное.Именно так компьютеры, появившись сравнительно недавно, прочно вошли в нашу повседневную жизнь, точно так же, как полиэтиленовые пакеты или телевидение. Сегодня не иметь дома этого высокотехнологичного устройства считается едва ли не дурным тоном. Хотя для многих вопрос о том, зачем же нужен ПК, до сих пор остаётся открытым.В первую очередь необходимо вспомнить о том, что эта железная коробка для немалой части населения является единственным источником заработка. Безусловно этому ещё одно изобретение человечества – Интернет. Виртуальный мир предлагает пользователям самые разные возможности заработка, от написания текстов до создания или продвижения сайтов. Достаточно много специалистов, которые прекрасно себя чувствуют в статусе фрилансеров и занимаются такими вещами, как: проведение онлайн-обучения, разработка бренда компании и многими другими.

Задача на динамическое программирование. Советую почитать поподробнее на эту тему в интернете. Подобные задачи для изучения: платная лестница, кузнечик, последовательность Фибоначчи.
#include <iostream>
#include <cmath>
using namespace std;
int main()  {
   int n;   
   cin >> n;   
   int height[n];   
   for(int i=0; i<n; i++)       
      cin >> height[i];    
   int energy[n];   
   for(int i=1; i<n; i++)
   energy[i] = energy[i-1] + abs(height[i]-height[i-1]);
   cout << height[n-1];
   return 0;
}