Нельзя считывать данные этого типа выводит pascal abc при попытке проверить программу на работоспособность. программа: program abc; var a, b, c, d, e, f: real; begin; write ('введите количество дюймов'); read('a'); b: =(a*2.54)*100; write('мм=', b); c: =a*2.54; write('см=', c); d: =(a*2.54)/10; write('дм=', d); e: =(a*2.54)/100; write('м=', e); f: =(a*2.54)/10000; write('км=', f); readln; end.

Встрочке  read('a'); апострофов   быть не должно. замени на  read(a);

Var n1,n2,n3,n4,n5: integer; begin readln(n1,n2,n3,n4,n5); if (n1> n2)  and (n1> n3)  and (n1> n4)  and (n1> n5)  then writeln('максимальное число: ',n1) else if (n2> n1)  and (n2> n3)  and (n2> n4)  and (n2> n5)  then writeln('максимальное число: ',n2) else if (n3> n1)  and (n3> n2)  and (n3> n4)  and (n3> n5)  then writeln('максимальное число: ',n3) else if (n4> n1)  and (n4> n3)  and (n4> n2)  and (n4> n5)  then writeln('максимальное число: ',n4) else writeln('максимальное число: ',n5); end.

#include < stdio.h> #include < stdlib.h> #include < locale.h> int main(void) {       setlocale(lc_all, "russian");       int n, iuneven = -1;       scanf("%d", & n);       int *a = (int*)malloc(n * sizeof(int));       for (int i = 0; i < n; i++)             scanf("%d", & a[i]);       for (int i = 0; i < n; i++)             if (a[i] % 2 == 1)             {                   iuneven = i;                   break;             }       free(a);       iuneven == -1 ? printf("нечетное число не найдено\n") : printf("%d\n", iuneven);             return 0; }