Помогаю. Держи решение. И не забудь сказать спасибо :)
Program raznost;
var a,b,c,r: integer;
begin
writeln ('Введите трехзначное число');
readln (a);
b:=a div 100;
c:=a mod 10;
if b>c then r:=b-c
else
if b<c then r:=c-b;
writeln ('Разность крайних цифр равна ',r);
end.
Язык PascalABC:begin var f: real; readln(f); if (f >= 0) then begin writeln('x := ', sqrt(f)); end else writeln('x := -3');end.
В логике с помощью кругов Эйлера.
Эйлера-венна