Program prog;
uses crt;
var
a,b,c,s:real;
begin
write('катет a = ');
readln(a);
write('катет b = ');
readln(b);
writeln;
c:=sqrt(sqr(a)+sqr(b));
s:= (a*b)/2;
writeln('Гипотенуза с = ', c:0:3);
writeln('S = ', s:0:3);
end.
Program Zvezda;
Uses GraphABC;
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111); Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321); End.
Program s;
var
a:integer;
begin
readln(a);
if a mod 2 = 0 then write(a*1.19) else write(a*0.18);
end.
Посмотреть на светофор. если горит красный-стоять. если загорелся зеленый. посмотреть сначала налево, потом направо, чтобы убедиться, что все машины остановились, затем переходить.