Текила,что тут не понятного?
Program vozrast1;
var a,b:integer;
begin
write ('введите ваш возраст');
readln(a);
if a>=18 then write ('ok') else if (a>=14) and (a<18) write ('with parents');
if a<14 then write ('no');
end.
<span>program A;vark, t: integer;beginassign(input, 'input.txt'); reset(input);assign(output, 'output.txt'); rewrite(output);ReadLn(k, t);if (t div k mod 2 = 0) thenWriteLn(t mod k)elseWriteLn(k - t mod k);close(input); close(output);<span>end.</span></span>