Паскаль. составить программу вычисления площади треугольника s=1/2ah

Program pl; var a,h,s: real; begin writeln ('введите длину стороны треугольника а'); readln (a); writeln ('введите длину высоты треуг. h'); readln (h); s: =1/2*a*h; writeln('площадь треугольника с заданными параметрами=',s,' кв.ед.'); end.

Var     i,n,k,max: integer;     s: string;     a: array[1..12]of integer;     naz: array[1..12]of string; begin naz[1]: =('январь'); naz[2]: =('февраль'); naz[3]: =('март'); naz[4]: =('апрель'); naz[5]: =('май'); naz[6]: =('июнь'); naz[7]: =('июль'); naz[8]: =('август'); naz[9]: =('сентябрь'); naz[10]: =('октябрь'); naz[11]: =('ноябрь'); naz[12]: =('декабрь'); write('введите число n: '); readln(n); for i: =1 to n do   begin   write('введите дату: ');   readln(s);   s: =copy(s,4,2);   k: =strtoint(s);   a[k]: =a[k]+1;   end; for i: =1 to 12 do   begin   if a[i]> =max then     begin     max: =a[i];     n: =i;     end;   end; writeln('месяц с наибольшим количеством: ',naz[n]); end.

#include < conio.h> #include < iostream> using namespace std; int main() {    char s[255];     bool palindrom=true;     gets(s);       for(int i=0; i< strlen(s)/2; i++)    {                    if(s[i]! =s[strlen(s)-i-1])                    {                      palindrom=false;                       break;                     }    }    if(palindrom) cout< < endl< < "palindrom";     else cout< < endl< < "ne palindrom";     getch();     return 0; }