Вычислить значения выражения; а) sqr(x)+sqr(y)< =4 при х=0.3, у=—1.6; б) к mod 7=k div 5—1 при k = 15.

  program qqq;     var x,y,s: real;   begin  x: =0.3;   y: =-1.6;   s: =sqr(x)+sqr(y);   writeln('s=',s);     end.  если это две разные программы должны быть, то это 1-ая

Program qq; uses crt; var p, d, z, i: integer; k: real; begin writeln('введите период для отрастания травы в днях: '); readln(p); writeln('введите потребное количество загонов: '); readln(z); for i: =1 to 5 do     begin     d: =i; // переменная дней изменяется, как дано в условии от 1 до 5 дней     k: =round(p/d+z); //процедура round округляет по всем правилам число загонов. ведь весьма нелогично строить, например 3,3333 загона: )     writeln ('для количества дней пастьбы -  ', d,' требуется загонов - ',k);     end; end.

Var a: string; begin writeln ('введите день недели с большой буквы'); read (a); if a='понедельник' then writeln ('в этот день 6 уроков'); if a='вторник' then writeln ('в этот день 6 уроков'); if a='среда' then writeln ('в этот день 6 уроков'); if a='четверг' then writeln ('в этот день 6 уроков'); if a='пятница' then writeln ('в этот день 5 уроков'); if a='суббота' then writeln ('в этот день 3 урока'); if a='воскресенье' then writeln ('в этот день уроков нет'); if (a< > 'понедельник') and (a< > 'вторник') and (a< > 'среда') and (a< > 'четверг') and (a< > 'пятница') and (a< > 'суббота') and (a< > 'воскресенье') then writeln ('день недели введен неправильно'); end.