Составить программу. Даны два числа, найти разность квадрата первого и удвоенного второго.

1. Браузеры, EMail клиенты, Игры, офисные пакеты и Т.д

2.Программы нужны для Взаимодействия с ними и получения информации, драйверы это микро программы для взаимодействия с устройствами

3.Дра́йвер (англ. driver, мн. ч. дра́йверы) — компьютерное программное обеспечение, с которого другое программное обеспечение (операционная система) получает доступ к аппаратному обеспечениюнекоторого устройства. Обычно с операционными системами поставляются драйверы для ключевых компонентоваппаратного обеспечения, без которых система не сможет работать. Однако для некоторых устройств (таких, как видеокартаили принтер) могут потребоваться специальные драйверы, обычно предоставляемые производителем устройства.

4.Взаимодействие между устройствами, программами, и пользователем

Var  
i, j, k : integer; 
 a : array [0..9,0..9] of char; 
procedure U(i,j:integer);  
var c : char; 
begin 
 c:=a[i,j]; a[i,j]:=' ';  
if (c='W')and(a[i+1,j]='B') then U(i+1,j);
  if (c='B')and(a[i+1,j]='W') then U(i+1,j); 
 if (c='W')and(a[i-1,j]='B') then U(i-1,j); 
 if (c='B')and(a[i-1,j]='W') then U(i-1,j); 
 if (c='W')and(a[i,j+1]='B') then U(i,j+1);  
if (c='B')and(a[i,j+1]='W') then U(i,j+1); 
 if (c='W')and(a[i,j-1]='B') then U(i,j-1); 
 if (c='B')and(a[i,j-1]='W') then U(i,j-1); 
end; 
begin  
assign(input,'input.txt');
reset(input); 
 assign(output,'output.txt');
 rewrite(output);  
for i:=1 to 8 do begin  for j:=1 to 8 do
 read(a[i,j]); 
 readln  
end;  
for i:=1 to 8 do
 begin 
 a[0,i]:=' '; a[9,i]:=' ';  a[i,0]:=' '; a[i,9]:=' '  
end; 
 k:=0; 
 for i:=1 to 8 do 
 for j:=1 to 8 do 
 if a[i,j]<>' ' then
begin 
 k:=k+1; U(i,j)  
end;  
write(k); 
 close(output) 
end.