Program lol;
var a,h,s:real;
begin
writeln ('Введіть сторону');
readln (a);
writeln ('Введіть висоту');
readln (h);
s := 0.5*a*h;
writeln ('Площа трикутника: ' ,s,'кв см');<span>
end.</span>
Program Posledow;
Var x, y: real;
Begin
x:=8;
Repeat y:=SQR(x-8)/6;
Writeln (x,' ',y);
x:=x+6;
Until y+5<0;
End.
Vara,b,sum:real;beginread(a,b);sum:=0;sum:=abs(a-b);write(sum);end.
Int get_lessons(int week){
if(week < 1 || week > 7) return 0; // Если ввели не номер дня недели
else if (week == 1) return 6;
else if (week == 2) return 6;
else if (week == 3) return 6;
else if (week == 4) return 6;
else if (week == 5) return 7;
else if (week == 6) return 0;
else return 0;
}