求五道Free Pascal IDE入门程序代码

求五道Free Pascal IDE入门程序代码

1、
var a,b:longint;
begin
read(a,b);
if a>b then writeln(sqr(a))
else writeln(sqr(b));
end.
2、顺便这道题问一下，输入0的话输出什么？
var a:longint;
begin
read(a);
if a>=0 then writeln('+')
else writeln('-');
end.
3、
var a:char;
begin
readln(a);
writeln(upcase(a));
end.
4、
var a,b,s,g:longint;
begin
read(a);
b:=a div 100 ;
s:=a div 10 mod 10;
g:=a mod 10;
writeln(b+s+g);
end.
5、
var a,b,c,d:longint;
begin
read(a);
if a<=50 then writeln(a*0.15:0:0)
else writeln(7.5+0.1*(a-50):0:0);
end.
纯手打，望采纳

绝对正确：
1.
program p1;
var a,b:longint;
begin
assign(input,'1.in'); assign(output,'1.out');
reset(input); rewrite(output);
readln(a,b);
if a>b then writeln(a*a)
else writeln(b*b);
close(input); close(output);
end.
2.program p2
var a:longint;begin
assign(input,'2.in'); assign(output,'2.out');
reset(input); rewrite(output);
readln(a);if a>=0 then writeln('+')else writeln('-');
close(input); close(output);
end.
3.program p3
var a:char;begin
assign(input,'3.in'); assign(output,'3.out');
reset(input); rewrite(output);
readln(a);writeln(upcase(a));
close(input); close(output);
end.
4.
program p4；
var a,x,y,z:longint;begin
assign(input,'4.in'); assign(output,'4.out');
reset(input); rewrite(output);
readln(a);x:=a div 100 ;y:=a div 10 mod 10;z:=a mod 10;writeln(x+y+z);
close(input); close(output);
end.
5.
program p5;
var a:longint;
assign(input,'5.in'); assign(output,'5.out');
reset(input); rewrite(output);
beginreadln(a);if a<=50 then writeln(a*0.15:0:2)else writeln(7.5+0.1*(a-50):0:2);
close(input); close(output);
end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！