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

язык pascal. с учетом високосных годов.

var

  age, days: integer;

 

begin

  writeln('введите возраст человека в годах');

  readln(age);

  days: = age * 365 + (age div 4);

  writeln('количество прожитых дней: ', days);

end.

на каком языке программу писать, следовало бы уточнить.вот на с# без учета високосного  года:  

#include< stdio.h> #include< stdlib.h>

int main(){ int age, res; printf( "введите ваш возраст: \n" ); scanf( "%i", & age ); res = age * 365; printf( "вами прожито: %i дней\n", res ); system( "pause" ); return 0; }если нужно учитывать високосный год, то добавляется соответственное условие, делящее возраст на 4 и потом плюсуется количество дней из полученного (целого значения)

Const n=5; var  t: array[1..n,1..n] of integer; i,j,p,k: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin   t[i,j]: =random(50);   write(t[i,j]: 4);   end;   writeln;   end; p: =1; k: =0; for i: =1 to n do   begin   if t[i,i] mod 5 = 0 then p: =p*t[i,i];   if t[i,n-i+1] mod 2 = 0 then k: =k+1;   end; writeln('p = ',p,' k = ',k); end. пример: исходный массив: 30 16 33 25 423 2 11 14 4511 29 22 48 636 21 35 37 427 14 44 13 29p = 30 k = 3

A= [45, 17, 28, 34, 100]  i = 0                  nmin = i            min = a[nmin]  nmax = i            max = a[nmax]  while (i < len(a)):       if (a[i] < min):               nmin = i               min = a[nmin]       if (a[i] > max):               nmax = i               max = a[nmax]       i += 1 print "min = a[", nmin, "] = ", min print "max = a[", nmax, "] = ", max