Write(‘Yashna, ‘); write(‘gulla ‘); write

4–misol.

begin

write(‘Yashna, ‘); write(‘gulla ‘);

write(‘ona Vatanim!‘);

end.
5–misol.

begin

writeln(‘Yashna, ‘); writeln(‘gulla ‘);

write(‘ona Vatanim!‘);

end.

7–misol. var a,b : real; Begin a:=3.24; b:=5; writeln(‘a=‘,a); writeln(‘b=‘,b); end.

8–misol. var a,b : real; Begin a:=3.24; b:=5.3; writeln(‘a=‘, a:6:2); writeln(‘b=‘,b:1:0); end.

3–misol. Var a,b,g,m:Integer; Begin Read(a, b); Read(g); m:=a+g+b; WriteLn(‘Natija= ‘, m); End.

var a,b,c: integer;

p,s: real;

begin

write(uchburchak tomonlari uzunliklarini kiriting: a,b,c=); readln(a,b,c);

p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(‘S=’,s); readln;

end.
var a,b:Integer; s:Real;

Begin a:=4;

a:=sqr(a); b:=b–a;

s:=2*a+3*b;

WriteLn(‘S= ‘,s);

End.

Program Taqqoslash;

Var a:Real;

Begin Write(‘Ixtiyoriy son kiriting: ‘); ReadLn(a);

If a>25 Then WriteLn(‘Katta‘)

Else WriteLn(‘Katta emas‘);

End.
Var a:Integer; b:String; {Bitta satrda bir nechta o‘zgaruvchini tavsiflash mumkin}

Begin

Write(‘Ixtiyoriy son kiriting: ‘); ReadLn(a);

If a<0 Then b:= ‘manfiy‘ Else If a>0 Then b:= ‘musbat‘ Else b:= ‘nol‘;

WriteLn(b); End.