опять я со своим делфи

кароче не робит нифига.
списал с учебника!!!!

Спойлер: код

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a, b, c: real;
i, j, k: integer;
begin
a := 1;
b := 2.0;
write('i=')
readln(i)
j := src(i)
i := i + 1
c := sin(a+b)
writeln('a=',a,'b=',b,'c=',c,'i=',i,'j=',j)

{ TODO -oUser -cConsole Main : Insert code here }
end.

 

. не ставь в конце