<span>3) =C42+2*D42</span>
..............................
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var
i,x:integer;
found:boolean;
begin
Read(x);
found:=false;
for i:=2 to x div 2 do
if x mod i=0 then begin Write(i); found:=true; break end;
if not found then Write(x)
end.
program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.
Ответ:3 целых 35/10........