pascalabc:
program f0rwardirop;
var r, x,y: real;
b: boolean;
begin
writeln('* alphaeus is *');
write('ok, введите r ='); readln(r);
write('теперь введите х ='); readln(x);
write('и, наконец, введите y ='); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.
program raf105;
var
s:string;
x:boolean;
i:integer;
begin
write('Введите слово: ');
readln(s);
s:= lowercase(s);
for i:=2 to length(s) do
if not x
then x:= s[i] = s[i-1];
if x
then writeln('В слове есть две подряд идущие, одинаковые буквы')
else writeln('В слове нет двух подряд идущих, одинаковых букв');
end.
Язык PascalABC