Шахматная доска, Помогите пожалуйста нарисовать шахматную доску. Опции

[Bulochnik]

Помогите пожалуйста нарисовать шахматную доску!

Сообщение отредактировано: Bulochnik - 10.12.2011 20:45

[Тузик]

uses crt;
var k,l,m,n:byte;
begin
clrscr;
repeat
writeln('Поле слона:');
write('k=');readln(k);
write('l=');readln(l);
until (k in [1..8])and(l in [1..8]);
repeat
writeln('Поле для хода:');
write('m=');readln(m);
write('n=');readln(n);
{на доске и на разных полях одного цвета}
until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0);
if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход')
else write('Нельзя попасть за 1 ход');
readln
end.