Program Posledow;Var x, y: real;Beginx:=8;Repeat y:=SQR(x-8)/6;Writeln (x,' ',y);x:=x+6;Until y+5<0;End.
алг число
вещ , S2, S3, S4, S5
нач
ввод S1
если U1
то S2
иначе S3
далее
если U2
то S4,S6
иначе S6
конец
На скорую руку так сказать)