fork download

copy

program льстец;
var a, Д, М: char;
begin
writeln('Кто ты: мальчик или девочка?');
Write('Введите М или Д');
writeln(a);
readln(a);
if a=Д then
begin
a:=Д;
writeln('мальчики')
end;
if a=М then
begin
a:=М; 
writeln('girls');
end;
end.

prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: invalid character
prog.pas:1: error: syntax error before `;'
prog.pas:1: warning: missing program header
prog.pas:2: error: invalid character
prog.pas:2: error: invalid character
prog.pas:2: error: syntax error before `,'
prog.pas:2: error: invalid character
prog.pas:2: error: invalid character
prog.pas: In main program:
prog.pas:6: error: undeclared identifier `a' (first use in this routine)
prog.pas:6: error:  (Each undeclared identifier is reported only once
prog.pas:6: error:  for each routine it appears in.)
prog.pas:8: error: invalid character
prog.pas:8: error: invalid character
prog.pas:8: error: syntax error before `then'

Standard output is empty