Народ, даны 3 числа а, в, с, если выполняется неравенство а< в

Program xxx; uses crt; var a,b,c: integer; begin readln(a,b,c); if ((a< b) and (b< c)) then writeln(a+b+c) else writeln(a*b*c); end.

Разрешения         глубина                            |4|             |8|           |16|       |24|640х480               |150|      |300|      |600|    |901.4| 800х600                |234.4|  |468.8|  |937.5|  |1406.3| 1024х768              |384|      |768|      |1536|    |2304| 1280х1024            |640|      |1280|     |2560|    |3840| я искал размер изображения, в кбайтах. а то не написано, что надо вписать в таблицу

Var   s,t: string;   n,i: integer; begin write('введите строку: '); readln(t); n: =1; t: =t+' '; for i: =2 to length(t) do   if ((t[i]=' ') or (i=length(  and (i-n> 1) then     begin     s: =copy(t,n,i-n);     if s=reversestring(s) then       begin       writeln('да, палиндромы есть');       halt       end           else n: =i+1     end; writeln('палиндромов нет')     end.