procedure qSort(var ar:array of integer; low,high:integer);
var i,j:integer;
    m,wsp:integer;
begin
  i:=low;
  j:=high;
  m:=ar[(i+j) div 2];
  repeat
    while(ar[i]<m) do i:=i+1;
    while(ar[j]>m) do j:=j-1;
    if(i<=j) then begin
      wsp:=ar[i];
      ar[i]:=ar[j];
      ar[j]:=wsp;
      i:=i+1;
      j:=j-1;
    end;
  until (i > j);
  if(low<j) then qSort(ar,low,j);
  if(i<high) then qSort(ar,i,high);
end;
 
const N = 15; {Число элементов в массиве}
var 
m : array[1..N] of integer;  {Массив, который будем сортировать}
i : integer;
begin
    for i:= 1 to N do m[i] := N-i; {заполняем массив элементами}
    for i:= 1 to N do write(m[i],' ');writeln; {Выводим массив на экран, чтобы увидеть неотсортированность}
    qSort(m, 0, N-1); {Сортируем}
    for i:= 1 to N do write(m[i],' '); {Выводим массив экран, чтобы увидеть отсортированность}
end.

function ReadWord(var f:text) : string;
var ch: char;
begin

while (ch<>',') and (ch<>'.') and (ch<>' ') and (Not Eof(f)) do
  begin
  read(f,ch);
  ReadWord[i] := ch;
  end;

end;

var ch: char;
    i: integer; 
begin

i := 0;
while (ch<>',') and (ch<>'.') and (ch<>' ') and (Not Eof(f)) do
  begin
  read(f,ch);
  ReadWord[i] := ch;
  i := i + 1;
  end;

end;

#include <iostream>
int main(){
    std::cout << 1.0 / 2;
    return 0;
}

$ foo bar baz

char first[] = "first string";
char second[] = "second string";
char third[] = "third string";

char* array_of_strings[3] = { first, second, third };

{

else
{
        q=x/y;
        b=y*q;
        r=x-b;
printf("Q=%d\n",q);
printf("R= %d\n\n",r);
printf("Dlya povtorenya najmite lyubuyu knopku.\n\n");
 }

}

x =  5
my =  (-498.0, 0L)
cos =  0.283662185463

x =  10
my =  (-499.0, 0L)
cos =  -0.839071529076

x =  15
my =  (-498.0, 0L)
cos =  -0.759687912859

def mycos(x):
	pen = 0.0
	sum = 0.0
	for k in range(0, 999):
		pen = (((-1) ** k) * (x ** (2 * k)))/math.factorial(2 * k)
		sum += pen
	return (sum, pen)

CLS
lower = 5
upper = 31

p = 1
pi = 4*ATN(1)
FOR i = lower TO upper
    p = p * ctg(i + pi)
NEXT

PRINT p
END

int getCurrent()
{
  int value = analogRead(CURRENT_SENSOR); // получаем число до 1024...
  long multipliedValue = value;
  multipliedValue *= 5000;
  int voltage = multipliedValue / 1024; // ...переводим в мВ (value * 5000 / 1024)...
  int delta = abs(voltage - 2500); // рассчитываем отклонение от 2500...
  long current = delta;
  current = (current * 1000) / 185; // ...и, наконец, находим ток в мА.
  
  return (int)current;
}

  long multipliedValue = value;
  multipliedValue *= 5000;

  long multipliedValue = value * 5000;

current = (voltage - 2500) * 1000/185 = ((value * 5000/1024) - 2500) * 1000/185

current = (value - 512) * 5000/1024 * 1000/185 ≈ (value - 512) * 26

#include <stdio.h>
#define TAB 4 /* ширина табуляции */

main () {
	int i, c;
	while (c != EOF) {
		while ((c=getchar()) != '\n' && c != EOF) {
			if (c == '\t') {
				for (i=0; i <= TAB; ++i)
					putchar(' ');
			}
			else 
				putchar(c);
		}
		putchar('\n');
	}
}

Исходные данные:
1\t|\n12\t|\n123\t|\n1234|

Ожидание:
1   |
12  |
123 |
1234|

Реальность:
1     |
12     |
123     |
1234|