Решите по информатике в паскалях. найти максимальное из натуральных чисе, не превышающих 5000, которое нацело делится на 39

Var a: integer; begin a: =5000; while a mod 39 < > 0 do     a: =a-1; writeln(a); end.

12 3 4 5 6 7 8 9 10 11 program chisla; uses crt; var i,max: integer; begin   clrscr;   max: =1;   for i: =1 to 5000 do   if (i> max) and (i mod 39=0) then max: =i;   write('max= ',max);   readln; end.

в 4-м тыс. до  н.  э. из многих небольших территориальных образований  — номов  — возникло два политических объединения  — верхний египет и нижний египет (со столицами в иераконполе и буто). создание единого государства приписывают правителю верхнего египта менесу. столицей объединённого государства около 3000  г. до  н.  э. стал мемфис.

 

только какое отношение это имеет к информатике?

#include < stdio.h>

#include < conio.h>

int main( void )

{

  int c, i;

  printf("input number: ");

  scanf(& c);   //амперсант c в скобках

  i = (int)(c%10);

  c = i*i;

  printf("answer: %i", c);

  getch();

  return 1;

}