ТАПСЫРМА 1.
Программаға берілген сандарды енгіземіз X,Y,Z. Программа ең кіші сандарды тауып, оны экранға шығарамыз.
Шешуі:

program Project1;
uses
SysUtils;
var
x, y, z, min: real;
begin
write('Wwedi X:'); readln(x);
write('Wwedi Y:'); readln(y);
write('Wwedi Z:'); readln(z);
min:= x;
if min > y then min:= y;
if min > z then min:= z;
writeln('Minimum = ', min);
readln;
end.

 

 

 

 

ТАПСЫРМА 2.
Программаға үш бүтін өрнекті  енгізіңіз X, Y және Z . Егер Х  Z-тен үлкен болса , онда экранға  X және Y өрнектерін  шығарыңдар , немесе экранға  Z өрнегін шығарамыз.
Шешуі:
program Project1;
uses
SysUtils;
var
x, y, z, rez: real;
begin
write('Wwedi X:'); readln(x);
write('Wwedi Y:'); readln(y);
write('Wwedi Z:'); readln(z);
if x > z then rez:= x + y else rez:= z;
writeln(rez:0:2);
readln;
end.