Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΠ°Π½Ρ Π΄Π²Π° ΡΠΈΡΠ»Π°, Π½Π°ΠΉΡΠΈ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π΅ ΠΈΠ· Π½ΠΈΡ .
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΠ°Π½Ρ Π΄Π²Π° ΡΠΈΡΠ»Π°, Π½Π°ΠΉΡΠΈ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π΅ ΠΈΠ· Π½ΠΈΡ .
ΠΠΎΠ΄:
program Big_Task;
//ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΠ°Π½Ρ Π΄Π²Π° ΡΠΈΡΠ»Π°, Π½Π°ΠΉΡΠΈ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π΅ ΠΈΠ· Π½ΠΈΡ
Π² ΠΠ°ΡΠΊΠ°Π»Π΅
var
i_Num1, i_Num2: integer;
begin
i_Num1 := 10;
i_Num2 := 30;
Writeln('i_Num1: ', i_Num1);
Writeln('i_Num2: ', i_Num2);
if i_Num1 > i_Num2 then
Writeln('ΠΠ΅ΡΠ²ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΡΠΈΡΠ΅Π»ΠΎ Π±ΠΎΠ»ΡΡΠ΅: i_Num1 > i_Num2 ')
else
Writeln('ΠΡΠΎΡΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΡΠΈΡΠ΅Π»ΠΎ Π±ΠΎΠ»ΡΡΠ΅: i_Num1 < i_Num2 ');
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΠ°Π½Ρ Π΄Π²Π° ΡΠΈΡΠ»Π°, Π½Π°ΠΉΡΠΈ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π΅ ΠΈΠ· Π½ΠΈΡ
Π² ΠΠ°ΡΠΊΠ°Π»Π΅.