program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var x:real;
begin
write('Iveskite skaiciu: ');
readln(x);
if (x>100)
  then writeln('Skaicius daugiau uz 100')
  else
   begin
    write('Skaicias kvadratas: ');
    writeln(x*x:10:4);
   end;
  readln;
end.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,m:real;
begin
write('Iveskite skaiciu a: ');
readln(a);
write('Iveskite skaiciu b: ');
readln(b);
if (a<>b)
  then begin
        writeln('Skaiciai nelygus');
        m:=a+b;
        write('m=');
        writeln(m:10:2);
       end
  else writeln('Skaiciai lygus');

  readln;
end.