stdout:
/temp/compiling/source.bas(1) error 3: Expected End-of-Line, found 'Pascal'
Pascal;
^
/temp/compiling/source.bas(2) error 10: Expected '=', found ';'
Var;
^
/temp/compiling/source.bas(3) error 3: Expected End-of-Line, found '�'
a,b:integer;
^
/temp/compiling/source.bas(4) error 10: Expected '=', found ';'
Begin;
^
/temp/compiling/source.bas(5) error 3: Expected End-of-Line, found '�'
read(a,b);
^
/temp/compiling/source.bas(6) error 3: Expected End-of-Line, found '�'
write(a+b);
^
/temp/compiling/source.bas(7) error 10: Expected '='
End.
^
/temp/compiling/source.bas(9) error 3: Expected End-of-Line, found '�'
Язык C++
^
/temp/compiling/source.bas(11) error 145: Only valid in -lang fb or deprecated or fblite, found 'using'
using namespace std;
^
/temp/compiling/source.bas(12) error 6: Expected '(', found 'main'
int main() {
^
/temp/compiling/source.bas(12) error 132: Too many errors, exiting
stderr:
dd1,mm1,1,dd2,mm2,2:integer;
ww:real;
Begin
Writeln('Введи текущую дату "дд мм "');
Readln(dd1,mm1,1);
Writeln('Введи дату рождения "дд мм "');
Readln(dd2,mm2,2);
1:=(1-2);
if mm2>mm1 then begin 1:=1-1; mm1:=mm1+12; end;
mm1:=mm1-mm2;
if dd2>dd1 then begin mm1:=mm1-1; dd1:=dd1+30; end;
dd1:=dd1-dd2;
ww:=dd1+mm1*30.4368499+1*365.242199;
Writeln(round(ww));
End.