Program Algorithm;
uses crt;
var result, a:real;
begin
for a:= 0 to 10.5 do
begin
result:=2*(Pow (a),5)*3*a*a-1/7*a+12;
a:=a+1.5;
writeline ("Your answer is ", result);
end;
end.
Как-то так, возможно не надо ставить begin/end в цикле for, потому что я уже не помню когда они нужны.
Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.
Каждый символ это двузначное шестнадцетиричное число от 0x00 до 0xFF. Половина этого диапазона совместима с кодировкой ASCII, другая половина - с Windows-1251
Если коды до 0x80, то вбиваешь в поиск по картинкам "Таблица ASCII" и декодируешь по ней, если больше 0x80, то вбиваешь в поиск "Таблица Windows 1251" и пользуешься ей.