Задачи различного содержания.

[Ulmas]

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

1.1. Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количество точек, лежащих по разные стороны прямой, проходящей через эти две точки, различались наименьшим образом.
1.2. Найти двузначное число, равное сумме цифры его десятков и квадрата цифры единиц.

[Вадим Мошев]

Функционал 1.2.

//.....
for i:=10 to 99 do
	begin

		ed:=i mod 10;
		des:=(i - ed) div 10;

		if i = des + ed*ed then begin D:=i; break end;
	end;

WriteLn(D);
//......

Кстати, только потом в голову пришло...
Код можно кое-где немного упростить. Подумайте..