Дано трехзначное число. Составьте программу которая определяет а)кратна ли 5 сумма его первой и последней цифры
б) сумма квадратов чисел в диапазоне от 1 до n
в) количество натуральных чисел не превышающих 50 и кратных 3

a)Program hhh54;var x: longint;begin  read (x);  if ((x div 100) + (x mod 10)) mod 5 = 0 then write ('КРАТНА')  else write ('НЕ КРАТНА');end.б)Program hhh54;var s,n,i: longint;begin  s:=0;  read (n);  for i:= 1 to n do    s:=s+sqr(i);  write (s);end.в)Program hhh54;var k,n,i: longint;begin  k:=0;  for i:= 1 to 50 do    if i mod 3 = 0 then k:=k+1;  write (k);end.