Формуле (x+1)2−−−−−−−√3 соответствует арифметическое выражение на Фортране

And (энд) - И
end (энд) - конец
nil (нил) - нуль
set (сет) - множество
array (эрей) - массив
file (файл) - файл
not (нот) - не
then (зен) - то
begin (бегин) - начало
for (фo) - для
of (оф) - из
to (ту) - увеличивая до
case (кейс) - вариант
while (вайл) - пока
downto (даунту)- уменьшая до
record (рикод) - запись
with (вис) - с
function (фанкшн)- функция
or (ор) - или
type (тайп) - тип
const (конст) - константа
go to (гоу ту)- переход на
packed (пэкт) - упаковать
until (антил) - до
div (див) - разделить
if (иф) - если
procedure() - процедура
var (вар) - переменная
do (ду) - выполнить
in (ин) - в
program (програм) - программа
else (элс) - иначе
mod (мод) - модуль
repeat (рипит) - повторять

#include <stdio.h> #include <stdlib.h> void build(int*, int ); void heap(int*, int); int main(void) { FILE *fin; int *a,n,i;   fin=fopen("input.txt", "r");   fscanf(fin,"%d", &n); a=(int*)malloc(n*sizeof(int)); for (i=0; i<n; i++) fscanf(fin,"%d", &a[i]); printf("pervona4alniy vid\n"); for (i=0; i<n; i++) printf("%d ", a[i]); printf("\n"); build(a, n); printf("\n postroenie\n"); for (i=0; i<n; i++) printf("%d ", a[i]); heap(a,n); printf("\n kone4niy vid\n"); for (i=0; i<n; i++) printf("%d ", a[i]); printf("\n"); return 0; } /* */ void build(int *a, int n) { int i,j,k,temp; for (i=0; i<n/2; i++) { j=2*i+1; k=i; if ((a[j+1]>a[j])&&(j+1<n)) j++; while ((j>0)&&(a[j]>a[k])) { temp=a[j]; a[j]=a[k]; a[k]=temp; j=k; k=(k-1)/2; } } } /* */ void heap(int *a, int n) { int nn,temp,i; nn=n; while (nn>0) { temp=a[0]; a[0]=a[nn-1]; a[nn-1]=temp; nn--; build(a,nn);   for (i=0; i<n; i++) printf("%d ", a[i]); } }