program zad8;
uses crt;
var m,n:integer;
begin
clrscr;
writeln ('m=');
readln(m);
writeln('n=');
readln(n);
if m mod n=0 then
writeln('m div n=',m div n)
else writeln ('not div');
readkey;
end.

program utf ;
var a,b,c,d,s1,k:integer;
s:real;
begin
writeln ('a=');readln(a);
writeln ('b=');readln(b);
writeln ('c=');readln(c);
writeln ('d=');readln(d);
if a>0 then begin
s1:=s1+a;
k:=k+1;
end;
if b>0 then begin
s1:=s1+b;
k:=k+1;
end;
if c>0 then begin
s1:=s1+c;
k:=k+1;
end;
if d>0 then begin
s1:=s1+d;
k:=k+1;
end;
s:=s1/k;
end.2

program voda;
uses crt;
var t:integer;
begin
clrscr;
writeln('t='); readln(t);
if t<0 then writeln ('led')
else
if t>100 then writeln ('par')
else writeln('voda');
readkey;
end.

чет не чет

program zad9;
uses crt;
var a, b, c:integer;
begin
writeln('a='); readln(a);
writeln('b='); readln(b);
writeln('c='); readln(c);
if a mod 2=0 then writeln('chetnoe',a)
else writeln(' not chetnoe a*a' ,a*a );
if b mod 2=0 then writeln ('chetnoe',b)
else writeln ('not chetnoe b*b', b*b) ;
if c mod 2=0 then writeln (' chetnoe',c)
else writeln (' not chetnoe c*c', c*c);
readkey;
end.

program chislo;
var a, b, c, k: integer;
begin
writeln ('a='); readln(a);
writeln('b='); readln(b);
writeln('c='); readln(c);
k:=0;
 if a=0 then k:=k+1;
 if b=0 then k:=k+2;
 if  c=0 then k:=k+3;
 writeln('k=',k);

 end.

program chiclo;
uses crt;
var a, b,d, c,s: integer;
begin
clrscr;
writeln ('c='); readln(c);
a:=c div 100;  c:=c div 10;
 b:=( c mod 10)mod 10;
writeln ('1 num',a);
writeln ('2 num', b);

writeln ('3 num',c);
s:=a+b; writeln ('s=',s); writeln;
c:=b*10+a; writeln('c=',c);
c:=d*100+b*10+a; writeln('c=',c);
readkey;
end.

program z2;
uses crt;
var a, b,c,p, s: real;
begin
textbackground(yellow); textcolor(blue);
clrscr;
gotoxy(25,15);
write('a=');
readln(a);
gotoxy(25,16);
write('b=');
readln(b);
gotoxy(25,17);
write('c=');
readln(c);
p:=(a+b+c)/2;
gotoxy(25,20);
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s);
readkey;
end.4