Нужно перевести данный код в Delphi или pascal
#include <math.h>

#define GRID 0
#define SKEW 1

char *method[] = {"grid", "skew"};

int comp_grid(float a, float b)
{
return (int)(floor(a) * floor(b));
}
int comp_skew(float a, float b)
{
int x = (int)floor(a);
int y = (int)( 1 + floor((b-1)/(sqrt(3)/2)));
int x2;
if (a-(float)x >= 0.5)
x2 = x;
else
x2 = x-1;
if (y%2 == 0)
return (y/2) * (x+x2);
else
return (y/2) * (x+x2) + x;
}

int main()
{
float a,b;
int max, res, best_method;
while (scanf("%f %f",&a,&b) == 2)
{
max = comp_grid(a,b);
best_method = GRID;
if ((res = comp_skew(a,b)) > max)
{
max = res;
best_method = SKEW;
}
if ((res = comp_skew(b,a)) > max)
{
max = res;
best_method = SKEW;
}
printf("%d %s\n",max,method[best_method]);
}
return 0;
}

Или решить эту задачу
http://www.magtu.ru/OLIMP/TREN/OnJudge/V1/121.html

madvetПодсказка - "=" заменяется на ":="
Спасибо
А (==, %, &)